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简介 


这 篇 文章 的 目的 是 以 通俗 易 懂 的 方式 引导 大 家 进入 Clojure 的 世界 。 文 章 闷 盖 了 
cojure 的 大 量 的 特性 ， 对 每 一 个 特性 的 介绍 我 力求 简介 。 你 不 用 一 条 一 条 往 下 看 ， 
尽管 跳 到 你 感 兴趣 的 条 目 。 


请 把 你 的 意见 ， 建 议 发 送 到 mark@ociweb.com( 如 果 是 对 文章 翻译 的 建议 ， 请 直接 
在 文章 下 面 留言 : http://xumingming.sinaapp.com/302/clojure-tutorial/ )。 我 对 下 面 
这 样 的 建议 特别 感 兴 趣 : 

e 你 说 是 X, 其 实 是 Y 

e. 你 说 是 X, 但 其 实说 Y 会 更 贴切 

e 你 没有 提 到 X, 但 是 我 认为 X 是 一 个 非常 重要 的 话题 
对 这 篇 文章 的 更 新 可 以 在 http://www.ociweb.com/mark/clojure/ 找到 ， 同 时 你 也 可 


以 在 http://www.ociweb.com/mark/stm/ 找到 有 关 Software Transactional Memory 
的 介绍 ， 以 及 Clojure 对 STM 的 实现 。 


这 篇 文章 里 面 的 代码 示例 里 面 通 常会 以 注释 的 形式 说 明 每 行 代码 的 结果 /输出 ， 看 下 
面 的 例子 : 


(+ 1 2) ; showing return value: 3 
(println "Hello") ; return nil, showing output:Hello 


函数 式 编程 


函数 式 编程 是 一 种 强调 函数 必须 被 当成 第 一 等 公民 对 待 ， 并 且 这 些 函 数 是 " 纯 " 的 编 
程 方式 。 这 是 受 lambda X, 启发 的 。 纯 函数 的 意思 是 同一 个 函数 对 于 同样 同样 
的 参数 ， 它 的 返回 值 始终 是 一 样 的 一 而 不 会 因为 前 一 次 调用 修改 了 某 个 全 局 变量 
而 使 得 后 面 的 调用 和 前 面 调用 的 结果 不 一 样 。 这 使 得 这 种 程序 十 分 容 匈 理解 、 调 
试 、 测 试 。 它 们 没有 副作用 一 修改 某 些 全 局 变量 ， 进 行 一 些 |O 操 作 (文件 |O 和 数 
HEE) 。 状 态 被 维护 在 方法 的 参数 上 面 ， 而 这 些 参 数 被 存放 在 栈 (stack) 上 面 (通常 
通过 递归 调用 ) ， 而 不 是 被 维护 在 全 局 的 堆 (heap) 上 面 。 这 使 得 方面 可 以 被 执 
行 多 次 而 不 用 担心 它 会 更 改 什 么 全 局 的 状态 (这 是 非常 重要 的 特征 ， 等 我 们 讨论 事 
务 的 时 候 你 就 会 意识 到 了 ) 。 这 也 使 得 高 级 编译 器 为 了 提高 代码 性 能 而 对 代码 进行 
重 排 (reording) 和 并 行 化 (parallelizing) 成 为 可 能 。 (并 行 化 代码 现在 还 很 少见 ) 


在 实际 生活 中 ， 我 们 的 程序 是 需要 一 定 的 副作用 的 。Haskel 的 主力 开发 Simon 
Peyton-Jones 曾 经 日 过 : 


“到 最 后 ， 任 何 程序 都 需要 修改 状态 ， 一 个 没有 副作用 的 程序 对 我 们 来 说 只 是 一 个 黑 
使， 你 唯一 可 以 感觉 到 的 是 : 这 个 黑 盒 在 变 热 。。” ( 
http://oscon.blip.tv/file/324976 ) 


问题 的 关键 是 我 们 要 控制 副作用 的 范围 ， 清 晰 地 定位 它们 ， 避 免 这 种 副作用 在 代码 
里 面 到 处 都 是 。 


把 函数 当 作 “ 第 一 公民 ”的 语言 可 以 把 函数 赋值 给 一 个 变量 ， 作 为 参数 来 调用 别 的 遂 
数 ， 同 时 一 个 元 数 也 可 以 返回 一 个 函数 。 可 以 把 函数 作为 返回 值 的 能 力 使 得 我 们 选 
择 之 后 程序 的 行为 。 接 受 函 数 作 为 参数 的 函数 我 们 称 为 “高 阶 函 数 "。 从 某 个 方面 来 
说 ， 高 阶 函 数 的 行为 是 由 传 进来 的 函数 来 配置 的 ， 这 个 函数 可 以 被 执行 任意 次 ， 也 
可 以 从 不 执行 。 


函数 式 语言 里 面 的 数据 是 不 可 修改 的 。 这 使 得 多 个 线程 可 以 在 不 用 锁 的 情况 下 并 发 
地 访问 这 个 数据 。 因 为 数据 不 会 改变 ， 所 以 根本 不 需要 上 锁 。 随 着 多 核 处 理 器 的 越 
发 流行 ， 函 数 式 语言 对 并 发 语言 的 简化 可 能 是 它 最 大 的 优点 。 如 果 所 有 这 些 听 起 来 
对 你 来 说 很 有 吸引 力 而 且 你 准备 来 学 学 函数 式 语 言 ， 那 么 你 要 有 点 心理 准备 。 许 多 
人 觉得 函数 式 语 言 并 不 比 面向 对 象 的 语言 难 ， 它 们 只 是 风格 不 同时 了 。 而 花 些 时 间 
学 了 遂 数 式 语言 之 后 可 以 得 到 上 面 说 到 的 那些 好 处 ， 我 想 还 是 值得 的 。 比 较 流行 的 
函数 式 语言 有 : Clojure , Common Lisp , Erlang , F#, Haskell , ML) , OCaml , 
Scheme) , Scala . ClojurefeScala X Java Virtual Machine (JVM) 上 的 语言 . 还 有 一 
些 其 它 基 于 JVM 的 语言 : Armed Bear Common Lisp (ABCL) , OCaml-Java and 
Kawa (Scheme). 


Clojure? t 


Clojure 是 一 个 动态 类 型 的 ， 运 行 在 JVM(JDK5.0 以 上 ) ， 并 且 可 以 和 java 代 码 互 操 
作 的 函数 式 语 言 。 这 个 语言 的 主要 目标 之 一 是 使 得 编写 一 个 有 多 个 线程 并 发 访问 数 
据 的 程序 变 得 简单 。 


Clojure 的 发 音 和 单词 closure 是 一 样 的 。Clojure 之 父 是 这 样 解释 Clojure 名 字 来 历 的 


“我 想 把 这 就 几 个 元 素 包 含 在 里 面 : C (C), L (Lisp) and J (Java). 所 以 我 想到 了 
Clojure, 而 且 从 这 个 名 字 还 能 想到 closure; 它 的 域名 又 没有 被 占用 ;而 且 对 于 搜索 引 
擎 来 说 也 是 个 很 不 错 的 关键 词 ， 所 以 就 有 了 它 了 .” 


很 快 Clojure 就 会 移植 到 .NET 平 台 上 了 . ClojureCLR 是 一 个 运行 在 Microsoft 的 CLR 的 
Clojure 实 现 . 在 我 写 这 个 入 门 教程 的 时 候 ClojureCLR 已 经 处 于 alpha 阶 段 了 . 


在 2011 年 7 月 , ClojureScript 项 目 开 始 了 ， 这 个 项 目 把 Clojure 代 码 编译 成 Javascript 
代码 : 看 这 里 https://github.com/clojure/clojurescript . 


Clojure 是 一 个 开源 语言 ，licence: Eclipse Public License v 1.0 (EPL). This is a 
very liberal license. 关于 EPL 的 更 多 信息 看 这 里 : 
http://www.eclipse.org/legal/eplfaq.php . 


运行 在 JVM 上 面 使 得 Clojure 代 码 具 有 可 移植 性 ， 稳 定性 ， 可 靠 的 性 能 以 及 安全 性 。 
同时 也 使 得 我 们 的 Clojure 代 码 可 以 访问 丰富 的 已 经 存在 的 java 类 库 : 文件 |/O, 多 线 
程 , 数据 库 操作 , GUI 编程 , web 应 用 等 等 等 等 . 


Clojure 里 面 的 每 个 操作 被 实现 成 以 下 三 种 形式 的 一 种 : 函数 (function), 宏 (macro) 或 
# special form. 几乎 所 有 的 函数 和 宏 都 是 用 Clojure 代 码 实 现 的 ， 它 们 的 主要 区 别 我 
们 会 在 后 面 解释 。Special forms 不 是 用 clojure 代 码 实现 的 ， 而 且 被 clojure 的 编译 器 
识别 出 来 . special forms 的 个 数 是 很 少 的 ， 而 且 现 在 也 不 能 再 实现 新 的 Special 
forms 了 . 它们 包括 : catch , def , do , dot (‘.’), finally , fn , if , let , loop , monitor- 
enter , monitor-exit , new , quote , recur , set! , throw, try 和 var. 


Clojure 提 供 了 很 多 函数 来 操作 序列 (sequence), 而 序列 是 集合 的 逻辑 视图 。 很 多 东 
西 可 以 被 看 作 序 列 : Java 集 合 , Clojure 的 集合 , FFB, 流 , 文件 系统 结构 以 及 XML 
Fi. 从 已 经 存在 的 clojure 集 合 来 创建 新 的 集合 的 效率 是 非常 高 的 ， 因 为 这 里 使 用 了 
persistent data structures 的 技术 (这 对 于 clojure 在 数据 不 可 更 改 的 情况 下 ， 同 时 要 
保持 代码 的 高 效率 是 非常 重要 的 ) 。 


Clojure 提 供 三 种 方法 来 安全 地 共享 可 修改 的 数据 。 所 有 三 种 方法 的 实现 方式 都 是 持 
有 一 个 可 以 开 遍 的 引用 指向 一 个 不 可 改变 的 数据 。Refs 通 过 使 用 Software 
Transactional Memory (STM) 来 提供 对 于 多 块 共享 数据 的 同步 访问 。Atoms 提 供 
对 于 单个 共享 数据 的 同步 访问 。Agents 提 供 对 于 单个 共享 数据 的 异步 访问 。 这 个 我 
们 会 在 “引用 类 型 "一 节 详 细 讨 论 。 


Clojure 是 Lisp) 的 一 个 方言 . 但 是 Clojure 对 于 传统 的 Lisp 有 所 发 展 。 比 如 , 传统 Lisp 
使 用 car 来 获取 链表 里 面 的 第 一 个 数据 。 而 Clojure 使 用 
first。 有 关 更 多 Clojure 和 Lisp 的 不 同 看 这 里 : http://clojure.org/lisps . 


Lisp 的 语法 很 多 人 很 喜欢 ， 很 多 人 很 讨厌 , 主要 因为 它 大量 的 使 用 圆 括号 以 及 前 置 表 
达 式 . 如 果 你 BE RIE ， 那么 你 要 考虑 一 下 是 不 是 要 学 习 Clojure 了 。 许 多 文件 编 
辑 器 以 及 IDE 会 高 亮 显示 匹配 的 圆 括号 , 所 以 你 不 用 担心 需要 去 人 肉 数 有 没有 多 加 一 
个 左 括号 ， 少 pea ene’ 同时 Clojure 的 代码 还 要 比 java 人 代码 简 洁 . 一 个 典型 的 
java 方 法 调用 是 这 样 的 : 


methodName(argi, arg2, arg3); 


而 Clojure 的 方法 调用 是 这 样 的 : 


(function-name argi arg2 arg3) 


c a m um E 
格 是 简单 而 又 美丽 : p m ENCODED 
名 规范 是 小 写 单词 ， 如 果 是 多 个 单词 ， 那 么 通过 中 横 线 连接 。 


定义 函数 也 比 java 里 面 简洁 。Clojure 里 面 的 println 会 在 它 的 每 个 参数 之 间 加 一 
个 空格 。 如 果 这 个 不 是 你 想 要 的 ， 那 么 你 可 以 把 参数 传 给 str ， 然 后 再 传 给 
println 


// Java 

public void hello(String name) { 
System.out.println("Hello, " + name); 

j 


; Clojure 
(defn hello [name] 
(println "Hello," name)) 


Clojure 里 面 大 量 之 用 了 延迟 计算 . 这 使 得 只 VE E BAN RR REC? 告 果 的 时 候 才 去 调用 
它 .“ 懒 情 序列 ”是 一 种 集合 ， DELLI 这 个 集合 理解 面 的 元 
A. 只 使 得 创建 无 限 集合 非常 


对 Clojure 代 码 的 处 理 分 为 三 个 阶段 : 读 入 期 ， 编 译 期 以 及 运行 期 。 在 读 入 期 ， 读 入 
期 会 读 取 clojure 源 代码 并 且 把 代码 转变 成 数据 结构 ， 基 本 上 来 说 就 是 一 个 包含 列表 
的 列表 的 列表 。。。。 在 编译 期 ， 这 些 数据 结构 被 转化 成 java 的 bytecode。 在 运行 
期 这 些 java bytecode 被 执行 。 部 数 只 有 在 运行 期 才 会 执行 。 而 宏 在 编译 期 就 被 展开 
成 实际 对 应 的 代码 了 。 


Clojure 代 码 很 难 理解 么 ? 想 想 每 次 你 看 到 java 代 码 里 面 那些 复杂 语法 比如 : if 
for ,以 及 匿名 内 部 类 , 你 需要 停 一 下 来 想 想 它们 到 底 是 什么 意思 (不 是 那么 的 直 
观 ) ， 同 时 如 果 想 要 做 一 个 高 效 的 Java 工 程 师 ， 我 们 有 一 些 工具 可 以 利用 来 使 得 我 


们 的 代码 更 容易 理解 。 同 样 的 道理 ，Clojure 也 有 类 似 的 工具 使 得 我 们 可 以 更 高 效 的 
读 懂 clojure 代 码 。 比 如: let , apply , map , filter , reduce ARE 
4 BR... 所 有 这 些 我 们 会 在 后 面 介绍 . 


开始 吧 


Clojure 是 一 个 相对 来 说 很 新 的 语言 。 在 经 过 一 些 年 的 努力 之 后 ，Clojure 的 第 一 版 是 
在 2007 年 10 月 16 日 发 布 的 。Clojure 的 主要 部 分 被 称 为 “Clojure proper" 或 者 
“core”。 你 可 以 从 这 里 下 载 : http://clojure.org/downloads . 你 也 可 以 使 用 
Leiningen 。 最 新 的 源 代码 可 以 从 它 的 Git 库 下 载 . 


“Clojure Contrib" 是 一 个 大 家 共享 的 类 库 列表 。 其 中 有 些 类 库 是 成 熟 的 ， 被 广泛 使 用 
的 并 且 最 终 可 能 会 被 加 入 Clojure Proper 的 。 但 是 也 有 些 库 不 是 很 成 熟 ， 没 有 被 广 
泛 使 用 ， 所 以 也 就 不 会 被 包含 在 Conjure Proper 里 面 。 所 以 Clojure Proper 里 面 是 鱼 
龙 混杂 ， 使 用 的 时 候 要 自己 革 酌 ， 文 档 在 这 里 : 
http://richhickey.github.com/clojure-contrib/index.html 


对 于 一 个 Clojure Contrib ， 有 三 种 方法 可 以 得 到 对 应 的 jar 包 . 首先 你 可 以 下 载 一 个 
打包 好 的 jar 包 。 其 次 你 可 以 用 maven 来 自己 打 个 jar 包 . Maven 可 以 从 这 里 下 载 
http://maven.apache.org/ . 打包 命令 是 “mvn package “. 再 其 次 你 可 以 用 ant. ant 
可 以 从 这 里 下 载 http:Want.apache.org/ 。 命 令 是 “ 

ant -Dclojure.jar={path} “ 


要 从 最 小 的 源 代 码 来 编译 clojure, 我 们 假设 你 已 经 安装 了 Git 和 Ant, 运行 下 面 的 命 
令 来 下 载 并 且 编 译 打 包 Clojure Proper 和 Clojure Contrib: 


git clone git://github.com/richhickey/clojure.git 

cd clojure 

ant clean jar 

cdm: 

git clone git://github.com/richhickey/clojure-contrib.git 
cd clojure-contrib 

ant -Dclojure.jar=../clojure/clojure.jar clean jar 


下 一 步 ， 写 一 个 脚本 来 运行 Read/Eval/Print Loop (REPL) 以 及 运行 Clojure 程序 . 
这 个 脚本 通常 被 命名 为 "clj”. 怎么 使 用 REPL 我 们 等 会 再 介绍 . Windows 下 面 ， 最 简单 
的 Oj 脚本 是 这 样 的 (UNIX, Linux 以 及 Mac OS X 下 面 把 %1 改 成 $1): 


java -jar /path/clojure.jar %1 


这 个 脚本 假定 java 在 你 的 PATH 环境 变量 里 面 . 为 了 让 这 个 脚本 更 加 有 用 : 


e 把 经 常 使 用 的 JAR 包 比如 “Clojure Contrib” 以 及 数据 库 driver 添 加 到 classpath 
里 面 去 ( -cp ). 
e 使 cj 更 好 用 : 用 rlwrap (利用 keystrokes 来 支持 的 ) 或 者 JLine 来 得 到 命令 提示 
以 及 命令 历史 提示 。 
e. 添加 一 个 启动 脚本 来 设置 一 些 特殊 变量 (比如 *print-length* 和 
*print-level* ), 加 载 一 些 常用 的 、 不 再 java.lang 里 面 的 包 加 载 一 些 
常用 的 不 再 clojure.core 里 面 的 函数 并 且 定 义 一 些 常 用 自 定 义 的 函数 . 


使 用 这 个 脚本 来 启动 REPL 我 们 会 等 会 介绍 . 用 下 面 这 个 命令 来 运行 一 个 clojure 脚 本 
(通常 以 cl 为 后 组 名 ) : 


clj source-file-path 


更 多 细节 看 这 里 http://clojure.org/getting started 以 及 这 里 : 
http://clojure.org/repl and main 。 同 时 Stephen Gilardi 还 提供 了 一 个 脚本 : 
http://github.com/richhickey/clojure-contrib/raw/master/launchers/bash/clj-env-dir 


o 


为 了 更 充分 的 利用 机 器 的 多 核 ， 你 应 该 这 样 来 调用 :“ java -server ... *. 


提供 给 Clojure 的 命令 行 参数 被 封装 在 预定 义 的 变量 *command- line-args* € & » 


Clojure 语法 


Lisp 方 言 有 一 个 非常 简洁 的 语法 一 有 些 人 觉得 很 美的 语法 。 数 据 和 代码 的 表达 形式 
是 一 样 的 ， 一 个 列表 的 列表 很 自然 地 在 内 存 里 面 表 达成 一 个 tree。(a b c) 表 示 一 个 
对 函数 a 的 调用 ， 而 参数 是 b 和 c。 如 果 要 表示 数据 ， 你 需要 使 用 '(abc) 0 或 者 

(quote (a b c)) 。 通 常情 况 下 就 是 这 样 了 ， 除 了 一 些 特 殊 情 况 — 到底 有 多 少 
特殊 情况 取决 于 你 所 使 用 的 方言 。 


我 们 把 这 些 特 殊 情 况 称 为 语法 糖 。 语 法 糖 越 多 代码 写 起 来 越 简介 ， 但 是 同时 我 们 也 
要 学 习 更 多 的 东西 以 读 懂 这 些 代 码 。 这 需要 找到 一 个 平衡 点 。 很 多 语法 糖 都 有 对 应 
的 函数 可 以 调用 。 到 底 语 法 糖 是 多 了 还 是 少 了 还 是 你 们 自己 来 判断 吧 “。 


下 面 这 个 表格 简要 地 列举 了 Clojure 里 面 的 一 些 语法 糖 ， 这些 语 法 糖 我 们 会 在 后 面 
详细 讲解 的 ， 所 以 如 果 你 现在 没 办 法 完全 理解 它们 不 用 担心 。 


作用 语法 糖 
注释 ; text ”单行 注释 


字符 (Java 
char X NX char. \tab Nnewline  Nspace Nu unicode-hex-valut: 
型) 


字符 串 
(Java " text " 
String s: = 
xt R) 
一 个 内 部 
字符 串 ; 两 
个 同样 的 
关键 字 指 
回 同 = 
xt RB: 通常 
被 用 来 作 
为 map 的 
key 
当前 命名 
空间 的 关 T anane 
键 字 


正则 表达 


ci 


4" pattern " 


在 集合 里 
面 用 来 提 
高 代码 可 
读 性 ) 


链表 
(linked 
list) 


vector (和 
数组 类 
似 ) 


set 


map 


给 symbol 
或 者 集合 
绑 定 元 数 
据 


获取 
symbol 或 
者 集合 的 
元 数据 
Aq 
EE TES 
数列 表 
(个 数 不 
定 的 ) 


函数 的 不 
需要 的 参 
数 的 默认 
PE 


创建 一 个 
java 对 象 

(注意 
class- 
name 后 面 
的 点 ) 


调用 java 
方法 
串 起 来 调 


用 多 个 函 


pen] 
(esi 
ag 
" 


'( items ) (不 会 evaluate 每 个 元 素 ) 


[ items ] 


Z( items ) 


C key-value-pairs ) 建立 一 个 hash-map 


#\{_key-value-pairs_} object 在 读 入 期 处 理 


A_object_ 


& name 


ES (T 3) A) 


(_class-name_. 


(. _class-or-instance_ _method-name_ args ) 
(._method-name_ _class-or-instance_ _args_) 


建立 一 个 hash-set 


.args ) 


或 者 


数 ， 前 面 
一 个 函数 
的 返回 值 
会 作为 后 
8 — ^ h 
数 的 第 一 
个 参数 ; 
你 还 可 以 
在 括号 里 
面 指 定额 
外 参数 ; 
注意 前 面 
的 两 个 点 


创建 一 个 
匿名 函数 


获取 Ref， 
Atom 和 


Agent 对 应 


的 valuea 


get Var 
object 
instead of 
the value 
of a 
symbol 
(var- 
quote) 


syntax 
quote (使 
用 在 宏 里 
f) 


unquote 
(使 用 在 宏 
里 面 ) 


unquote 

splicing 

(使 用 在 宏 
里 面 ) 


auto- 
gensym 
(在 宏 里 面 
用 来 产生 
唯一 的 


(.. _class-or-object_ (_method1 args ) ( method2 args. 


4( single-expression ) 用 % (等 同 于 9a ) %1 


Q ref 


Z' name 


~ value 


-(Q9 value. 


prefix # 


， %2 来 表 


symbol% 
E 


对 于 二 元 操作 符 比 如 + 和 *, Lisp 方 言 使 用 前 置 表达 式 而 不 是 中 止 表 达 式 ， 这 和 一 般 
的 语言 是 不 一 样 的 。 比 如 在 java 里 面 你 可 能 会 写 a + b c ,而 在 Lisp 里 面 它 相 
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(+ abc) 。 这 种 表达 方式 的 一 个 好 处 是 如 果 操作 数 有 多 个 ， 那 么 操作 符 只 用 写 一 次 
其 它 语言 里 面 的 二 元 操作 符 在 lisp 里 面 是 函数 ， 所 以 可 以 有 多 个 操作 数 。 


Lisp 代 码 比 其 它 语言 的 代码 有 更 多 的 小 括号 的 一 个 原因 是 Lisp 里 面 不 使 用 其 它 语言 
使 用 的 大 括号 ， 比 如 在 java 里 面 ， 方 法 代码 是 被 包含 在 大 括号 里 面 的 ， 而 在 lisp 代 码 
里 面 是 包含 在 小 括号 里 面 的 。 


比较 下 面 两 段 简单 的 Java 和 Clojure 代 码 ， 它 们 实现 相同 的 功能 。 它 们 的 输出 都 是 : 
"edray" f» "orangeay". 


// This is Java code. 
public class PigLatin { 


public static String pigLatin(String word) { 
char firstLetter - word.charAt(0); 


if ("aeiou".indexOf(firstLetter) != -1) return word + "ay"; 
return word.substring(1) + firstLetter + "ay"; 
j 


public static void main(String args[]) { 
System.out.println(pigLatin("red")); 
System.out.println(pigLatin("orange")); 
} 

} 


; This is Clojure code. 

; When a set is used as a function, it returns a boolean 
; that indicates whether the argument is in the set. 
(def vowel? (set "aeiou")) 


(defn pig-latin [word] ; defines a function 
; word is expected to be a string 
; which can be treated like a sequence of characters. 
(let [first-letter (first word)] ; assigns a local binding 
(if (vowel? first-letter) 
(str word "ay") ; then part of if 
(str (subs word 1) first-letter "ay")))) ; else part of if 


(println (pig-latin "red")) 
(println (pig-latin "orange")) 


Clojure 支 持 所 有 的 常见 数据 类 型 比如 booleans( true and false ), 数字 , 高 精 
度 浮 点 数 , 字符 (上 面 表 格 里 面 提 到 过 ) 以 及 字符 串 . 同时 还 支持 分 数 一 不 是 浮 点 
数 ， 因 此 在 计算 的 过 程 中 不 会 损失 精度 . 


Symbols 是 用 来 给 东西 命名 的 . 这 些 名 字 是 被 限制 在 名 字 空 间 里 面 的 ， 要 么 是 指定 的 
名 字 空 间 ， 要 么 是 当前 的 名 字 空 间 . Symbols 的 值 是 它 所 代表 的 名 字 的 值 . 要 使 用 
Symbol 的 值 ， 你 必须 把 它 用 引号 引起 来 . 


关键 字 以 冒号 打头 ， 被 用 来 当 作 唯一 标示 符 ， 通 常用 在 map 里 面 ( 比 如 :red 
:green 和 :blue ). 


和 任何 语言 一 样 ， 你 可 以 写 出 很 难 懂 的 Clojure 人 代码。 遵循 一 些 最 佳 实践 可 以 避免 这 
个 。 写 一 些 简短 的 ， 专 注 自 己 功 能 的 函数 可 以 使 函数 变 得 容 匈 读 ， 测 试 以 及 重复 利 
用 。 经 常 使 用 "抽取 方法 "的 模式 来 对 你 的 代码 进行 重 构 。 高 度 内 只 的 函数 是 非常 难 

懂得 ， 千 万 不 要 这 么 写 ， 你 可 以 使 用 let 来 帮助 你 。 把 匿名 函数 传递 给 命名 函数 是 非 
常常 见 的 ， 但 是 不 要 把 一 个 匿名 函数 传递 给 另外 一 个 匿名 函数 ， 这 样 代码 就 很 难 懂 
了 。 


REPL 


REPL Xread-eval-print loop 的 缩写 . 这 是 Lisp 的 方言 提供 给 用 户 的 一 个 标准 交互 方 
式 ， 如 果 用 过 python 的 人 应 该 用 过 这 个 ， 你 输入 一 个 表达 式 ， 它 立马 再 给 你 输出 结 
果 ， 你 再 输入 。。“。 如 此 循环 。 这 是 一 个 非常 有 用 的 学 习 语 言 ， 测 试 一 些 特 性 的 工 
Ao 


为 了 启动 REPL ， 运 行 我 们 上 面 写 好 的 dj 脚本 。 成 功 的 话 会 显示 一 个 ”user=&gt; 
““ =&gt; ”前 面 的 字符 囊 表 示 当 前 的 默认 名 字 空 间 。“=>” 后 面 的 则 是 你 输入 的 
form 以 及 它 的 输出 结果 。 下 面 是 个 简单 的 例子 : 


user=> (def n 2) 
#'user/n 

user=> (* n 3) 
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def 是 一 个 special form， 它 相当 于 java 里 面 的 定义 加 赋值 语句 . 它 的 输出 表示 一 
个 名 字 叫 “ n ”的 symbol 被 定义 在 当前 的 名 字 空 间 “ user ”里 面 。 


要 查看 一 个 函数 ， 宏 或 者 名 字 空 间 的 文档 输入 (doc name )。 看 下 面 的 例子 : 


(require 'clojure.contrib.str-utils) 

(doc clojure.contrib.str-utils/str-join) ; -> 

; clojure.contrib.str-utils/str-join 

; ([separator sequence]) 

s Returns a string of all elements in 'sequence', separated by 
3 'separator'. Like Perl's 'join'. 


> 


如 果 要 找 所 有 包含 某 个 字符 串 的 所 有 的 函数 的 ， 宏 的 文档 ， 那 么 输入 这 个 命 4 
(find-doc " text ") 


如 果 要 查看 一 个 函数 ， 宏 的 源 代码 (source name ) . source 是 一 个 定义 在 


clojure.contrib.repl-utils 名 字 空 间 里 面 的 宏 ，REPL 会 自动 加 载 这 个 宏 
的 。 


如 果 要 加 载 并 且 执 行文 件 里 面 的 clojure 代 码 那 么 使 用 这 个 命令 
(load-file " file-path ") .Clojure 源 文件 一 般 以 .clj 作 为 后 组 。 


如 果 要 退出 REPL， 在 Windows 下 面 输出 ctrl-z 然 后 回 车 ， 或 者 直接 ctrl-c; 在 其 它 平 
台 下 (包括 UNIX, Linux 和 Mac OS X), 输入 ctrl-d. 


- 
AR EL 


又 里 


Clojure 里 面 是 不 支持 变量 的 。 它 跟 变量 有 点 像 ， 但 是 在 被 赋值 之 前 是 不 允许 改 的 ， 
包括 : 全 局 binding, 线程 本 地 (thread local)binding ， 以 及 函数 内 的 本 地 binding * 
以 及 一 个 表达 式 内 部 的 binding 。 


def 这 个 special form 定义 一 个 全 局 的 binding， 并 且 你 还 可 以 给 它 一 个 "root 
value”， 这 个 root value 在 所 有 的 线程 里 面 都 是 可 见 的 ， 除 非 你 给 它 典 了 一 个 线程 本 
地 的 值 . def 也 可 以 用 来 改变 一 个 已 经 存在 的 binding 的 root value 一 一 但 是 这 是 
不 被 鼓励 的 ， 因 为 这 会 牺牲 不 可 变数 据 所 带 来 的 好 处 。 


函数 的 参数 是 只 在 这 个 函数 内 可 见 的 本 地 binding 。 


let 这 个 special form 创建 局 限于 一 个 当前 form 的 bindings. 它 的 第 一 个 参数 是 一 
个 vector, 里 面包 含 名 字 - 表 达 式 的 对 子 。 表 达 式 的 值 会 被 解析 然后 赋 给 左边 的 名 

字 。 这 些 binding 可 以 在 这 个 vector 后 面 的 表达 式 里 面 使 用 。 这 些 binding 还 可 以 被 多 
次 赋值 以 改变 它们 的 值 ，let 命 令 剩 下 的 参数 是 一 些 利用 这 个 binding 来 进行 计算 的 一 
些 表 达 式 。 注 意 : 如 果 这 些 表 达 式 里 面 有 调用 别 的 函数 ， 那 么 这 个 函数 是 无 法 利用 
let 创 建 的 这 个 binding 的 。 


宏 binding 跟 let 类 似 ,但 是 它 创建 的 本 地 binding 会 暂时 地 履 盖 已 经 存在 的 
全 局 binding. 这 个 binding 可 以 在 创建 这 个 binding 的 form 以 及 这 个 form 里 面 调用 的 函 
数 里 面 都 能 看 到 。 但 是 一 旦 跳出 了 这 个 binding 那么 被 履 盖 的 全 局 binding 的 值 
会 回复 到 之 前 的 状态 。 


从 Clojure 1.3 开 始 , binding 只 能 用 在 动态 变量 (dynamic var) 上 面 了 . 下面 的 例子 演 
示 了 怎么 定 一 个 dynamic var。 男 一 个 区 别 是 let 是 串 行 的 赋值 的 , 所 以 后 面 的 
binding 可 以 用 前 面 binding 的 值 , 而 binding 是 不 行 的 . 


要 被 用 来 定义 成 新 的 、 本 地 线程 的 、 用 binding 来 定义 的 binding 有 它们 自己 的 命名 
方式 : 她 们 以 星 号 开始 ， 以 星 号 结束 。 在 这 篇 文章 里 面 你 会 看 到 : 
*command-line-args* , *agent* , *err* , *flush-on-newline* 

*in* , *load-tests* , *ns* , *out* , *print-length* 
*print-level* and *stack-trace-depth* .要 使 用 这 些 binding 的 元 数 会 被 这 
些 binding 的 值 影响 的 。 比 如 给 out 一 个 新 的 binding 会 改变 println 函 数 的 输出 终端 。 


下 面 的 例子 介绍 了 def , let 和 binding 的 用 法 。 


(def ^:dynamic v 1) ; v is a global binding 


(defn f1 [] 
(println "fi: v =" v)) ; global binding 


(defn f2 [] 
(println "f2: before let v =" v) ; global binding 
(let [v 2] ; creates local binding v that shadows global one 
(println "f2: in let, v =" v) ; local binding 
(f1)) 
(println "f2: after let v =" v)) ; global binding 


(defn f3 [] 
(println "f3: before binding v =" v) ; global binding 
(binding [v 3] ; same global binding with new, temporary value 
(println "f3: in binding, v =" v) ; global binding 
(f1)) 
(println "f3: after binding v =" v)) ; global binding 


(defn f4 [] 

(def v 4)) ; changes the value of the global binding 
(f2) 

(f3) 

(f4) 


(println "after calling f4, v =" v) 


上 面 代 码 的 输出 是 这 样 的 : 


f2: before let v = 1 

f2: in let, v - 2 

f1: v = 1 (let DID NOT change value of global binding) 

f2: after let v = 1 

f3: before binding v = 1 

f3: in binding, v = 3 

f1: v = 3 (binding DID change value of global binding) 

f3: after binding v - 1 (value of global binding reverted back) 
after calling f4, v = 4 


集合 


Clojure 提 供 这 些 集合 类 型 : list, vector, set, map。 同 时 Clojure 还 可 以 使 用 Java 里 面 
提供 的 将 所 有 的 集合 类 型 ， 但 是 通常 不 会 这 样 做 的 ， 因 为 Clojure 自 带 的 集合 类 型 
更 适合 函数 式 编程 。 


Clojure 集 合 有 着 java 集 合 所 不 具备 的 一 些 特性 。 所 有 的 clojure 集 合 是 不 可 修改 的 、 
异 源 的 以 及 持久 的 。 不 可 修改 的 意味 着 一 旦 一 个 集合 产生 之 后 ， 你 不 能 从 集合 里 面 
删除 一 个 元 素 ， 也 往 集 合 里 面 添加 一 个 元 素 。 异 源 的 意味 着 一 个 集合 里 面 可 以 装 进 
任何 东西 〈 而 不 必须 要 这 些 东西 的 类 型 一 样 ) 。 持 久 的 以 为 着 当 一 个 集合 新 的 版 本 
产生 之 后 ， 旧 的 版 本 还 是 在 的 。CLojure 以 一 种 非常 高 效 的 ， 共 享 内 存 的 方式 来 实 
现 这 个 的 。 比 如 有 一 个 map 里 面 有 一 千 个 name-valuea pair, 现在 要 往 map 里 面 加 一 
个 ， 那 么 对 于 那些 没有 变化 的 元 素 ， 新 的 map 会 共享 日 的 map 的 内 存 ， 而 只 需要 添 
加 一 个 新 的 元 素 所 占用 的 内 存 。 


有 很 多 核心 的 函数 可 以 用 来 操作 所 有 这 些 类 型 的 集合 。。 多 得 以 至 于 无 法 在 这 里 全 
部 描述 。 其 中 的 一 小 部 分 我 们 会 在 下 面 介绍 vector 的 时 候 介绍 一 下 。 要 记 住 的 是 ， 
因为 clojure 里 面 的 集合 是 不 可 修改 的 ， 所 以 也 就 没有 对 集合 进行 修改 的 函数 。 相 反 
clojure 里 面 提供 了 一 些 函 数 来 从 一 个 已 有 的 集合 来 高 效 地 创建 新 的 集合 一 使 用 
persistent data structures 。 同 时 也 有 一 些 函 数 操作 一 个 已 有 的 集合 (比如 vector) 
来 产生 另外 一 种 类 型 的 集合 (比如 LazySeq), 这 些 函 数 有 不 同 的 特性 。 

RE: 这 一 节 里 面 介绍 的 Clojure 集 合 对 于 学 习 clojure 来 说 是 非常 的 重要 。 但 是 这 里 
介绍 一 个 函数 接着 一 个 函数 ， 所 以 你 如 果 觉 得 有 点 烦 ， 有 点 乏味 ， 你 可 以 跳 过 ， 等 
用 到 的 时 候 再 回 过 头 来 查询 。 


count 返回 集合 里 面 的 元 素 个 数 ， 比 如 : 


(count [19 "yellow" true]) ; -> 3 


conj AA Æ conjoint Za 5, 添加 一 个 元 素 到 集合 里 面 去 ， 到 底 添加 到 什么 位 置 
那 就 取决 于 具体 的 集合 了 ， 我 们 会 在 下 面 介 绍 具 体 集 合 的 时 候 再 讲 。 


reverse 把 集合 里 面 的 元 素 反 转 。 


(reverse [24 7]) ; -> (7 4 2) 


map 对 一 个 给 定 的 集合 里 面 的 每 一 个 元 素 调用 一 个 指定 的 方法 ， 然 后 这 些 方法 的 
所 有 返回 值 构 成 一 个 新 的 集合 (LazySeq) 返回 。 这 个 指定 了 函数 也 可 以 有 多 个 参 
数 ， 那 么 你 就 需要 给 map 多 个 集合 了 。 如 果 这 些 给 的 集合 的 个 数 不 一 样 ， 那 么 执行 
这 个 函数 的 次 数 取 决 于 个 数 最 少 的 集合 的 长 度 。 比 如 : 


; The next line uses an anonymous function that adds 3 to its argur 
(map #(+ % 3) [2 4 7]) ; -> (5 7 10) 
(map + [2 4 7] [5 6] [12 3 4]) ; adds corresponding items -> (8 1: 


«| m 











apply 把 给 定 的 集合 里 面 的 所 有 元 素 一 次 性 地 给 指定 的 函数 作为 参数 调用 ， 然 后 
返回 这 个 函数 的 返回 值 。 所 以 apply 与 map 的 区 别 就 是 map 返 回 的 还 是 一 个 集合 ， 而 
apply 返 回 的 是 一 个 元 素 ， 可 以 把 apply 看 作 是 SQL 里 面 的 聚合 函数 。 比 如 : 


(apply + [2 4 7]); -> 13 


有 很 多 有 函数 从 一 个 集合 里 面 获 取 一 个 元 素 ， 比 如 : 


(def stooges ["Moe" "Larry" "Curly" "Shemp"]) 
(first stooges) ; -» "Moe" 

(second stooges) ; -» "Larry" 

(last stooges) ; -» "Shemp" 

(nth stooges 2) ; indexes start at 0 -> "Curly" 


也 有 一 些 函 数 从 一 个 集合 里 面 获取 多 个 元 素 ， 比 如 : 


(next stooges) ; -> ("Larry" "Curly" "Shemp") 

(butlast stooges) ; -» ("Moe" "Larry" "Curly") 

(drop-last 2 stooges) ; -» ("Moe" "Larry") 

; Get names containing more than three characters. 

(filter #(> (count %) 3) stooges) ; -> ("Larry" "Curly" "Shemp") 
(nthnext stooges 2) ; -» ("Curly" "Shemp") 


有 一 些 谓词 函数 测试 集合 里 面 每 一 个 元 素 然后 返回 一 个 布尔 值 ， 这 些 函 数 都 
是 ”short-circuit* 的 ， 一 旦 它们 的 返回 值 能 确定 它们 就 不 再 继续 测试 剩 下 的 元 素 了 ， 
有 点 像 java 的 && 和 or 比如 : 


(every? #(instance? String %) stooges) ; -> true 
(not-every? #(instance? String %) stooges) ; -> false 
(some #(instance? Number %) stooges) ; -> nil 
(not-any? #(instance? Number %) stooges) ; -> true 


LES 


Lists 是 一 个 有 序 的 元 素 的 集合 一 相当 于 java 里 面 的 LinkedList。 这 种 集合 对 于 那 种 
一 直 要 往 最 前 面 加 一 个 元 素 ， 干 掉 最 前 面 一 个 元 素 是 非常 高 效 的 (DO(1)) 一 想到 于 
java 里 面 的 堆栈 , 但 是 没有 高 效 的 方法 来 获取 第 N 个 元 素 ， 也 没有 高 效 的 办 法 来 修改 
第 N 个 元 素 。 


下 面 是 创建 同样 的 list 的 多 种 不 同 的 方法 : 


(def stooges (list "Moe" "Larry" "Curly")) 
(def stooges (quote ("Moe" "Larry" "Curly"))) 
(def stooges '("Moe" "Larry" "Curly") ) 


some 可 以 用 来 检测 一 个 集合 是 否 含有 某 个 元 素 . 它 的 参数 包括 一 个 谓词 函数 以 及 
一 个 集合 。 你 可 以 能 会 想 了 ， 为 了 要 看 一 个 list 到 底 有 没有 某 个 元 素 为 什么 要 指定 一 
1 35] BRE 0 其 实 我 们 是 故意 这 么 做 来 让 你 尽量 不 要 这 么 用 的 。 从 一 个 list 里 面 搜 
索 一 个 元 素 是 线性 的 操作 (不 高 效 ) ， 而 要 从 一 个 set 里 面 搜索 一 个 元 素 就 容易 也 高 
效 多 了 ， 看 下 面 的 例子 对 比 : 


(some #(= % "Moe") stooges) ; -> true 

(some #(= % "Mark") stooges) ; -> nil 

; Another approach is to create a set from the list 

; and then use the contains? function on the set as follows. 
(contains? (set stooges) "Moe") ; -» true 


conj 和 cons 函数 的 作用 都 是 通过 一 个 已 有 的 集合 来 创建 一 个 新 的 包含 更 多 元 
素 的 集合 一 新 加 的 元 素 在 最 前 面 。 remove 郊 数 创建 一 个 只 包含 所 指定 的 谓词 函 
数 测试 结果 为 false 的 元 素 的 集合 : 


(def more-stooges (conj stooges "Shemp")) -> ("Shemp" "Moe" "Larry' 
(def less-stooges (remove #(= % "Curly") more-stooges)) ; -> ("Sher 


一 


into 远 数 把 两 个 list 里 面 的 元 素 合 并 成 一 个 新 的 大 list 





(def kids-of-mike '("Greg" "Peter" "Bobby")) 

(def kids-of-carol '("Marcia" "Jan" "Cindy")) 

(def brady-bunch (into kids-of-mike kids-of-carol)) 

(println brady-bunch) ; -» (Cindy Jan Marcia Greg Peter Bobby) 


peek 和 pop 可 以 用 来 把 list 当 作 一 个 堆栈 来 操作 . 她 们 操作 的 都 是 list 的 第 一 个 
元 素 。 


向 量 


Vectors 也 是 一 种 有 序 的 集合 。 这 种 集合 对 于 从 最 后 面 删除 一 个 元 素 ， 或 者 获取 最 后 
面 一 个 元 素 是 非常 高 效 的 (O(1))。 这 意味 着 对 于 向 Vector 里 面 添加 元 素 使 用 conj 被 使 
用 Cons 更 高 效 。Vector 对 于 以 索引 的 方式 访问 某 个 元 素 〈 用 nth 命 令 ) 或 者 修改 某 个 
元 素 (用 assoc) 来 说 非常 的 高 效 。 函 数 定义 的 时 候 指定 参数 列表 用 的 就 是 vector 。 


下 面 是 两 种 创建 vector 的 方法 : 


(def stooges (vector "Moe" "Larry" "Curly")) 
(def stooges ["Moe" "Larry" "Curly"]) 


除非 你 要 写 的 程序 要 特别 用 到 list 的 从 前 面 添 加 /删除 效率 很 高 的 这 个 特性 ， 否 则 一 

般 来 说 我 们 鼓励 你 们 用 vector 而 不 是 lists。 这 主要 是 因为 语法 上 [...] 上 比 ' 
(...) 更 自然 ， 更 不 容易 型 混 消 。 因 为 函数 ， 宏 以 及 special form 的 语法 也 是 
(...) ° 


get 获取 Vector 里面 指定 索引 的 元 素 . 我 们 后 面 会 看 到 get 也 可 以 从 map 里 面 获 取 
指定 key 的 value。 索 引 是 从 0 开始 的 。 get 函数 和 函数 nth 类 似 . 它们 都 接收 
一 个 可 选 的 默认 值 参数 一 如 果 给 定 的 索引 超出 边界 ， 那 么 会 返回 这 个 默认 值 。 如 
果 没 有 指定 默认 值 而 索引 又 超出 边界 了 ， get SRARA nil 而 nth 会 抛 
出 一 个 异常 . 看 例子 : 


(get stooges 1 "unknown") ; -> "Larry" 
(get stooges 3 "unknown") ; -» "unknown" 


assoc 可 以 对 vectors 和 maps 进 行 操作 。 当 用 在 vector 上 的 时 候 , 它 会 从 给 定 的 
Vector 创建 一 个 新 的 vector, 而 指定 的 那个 索引 所 对 应 的 元 素 被 替换 看。 如 果 指 定 的 
这 个 索引 等 于 vector 里 面 元 素 的 数目 ， 那 么 我 们 会 把 这 个 元 素 加 到 新 vector 的 最 后 
面 去 ; 如 果 指 定 的 索引 比 vector 的 大 小 要 大 ， 那 么 一 个 

IndexOutOfBoundsException 异常 会 被 抛 出 来 。 看 代码 : 


(assoc stooges 2 "Shemp") ; -> ["Moe" "Larry" "Shemp"] 


subvec 获取 一 个 给 定 vector 的 子 vector。 它 接受 三 个 参数 ， 一 个 vectore, 一 个 起 
始 索 引 以 及 一 个 可 选 的 结束 索引 。 如 果 结 束 索 引 没 有 指定 ， 那 么 默认 的 结束 索引 就 
是 vector 的 大 小 。 新 的 vector 和 原来 的 vector 共 享 内 存 ( 所 以 高 效 ) 。 


所 有 上 面 的 对 于 list 的 例子 代码 对 于 vector 同 样 适 用 。 peek 和 pop 函数 对 于 
vector 同 样 适用 , 只 是 它们 操作 的 是 vector 的 最 后 一 个 元 素 ， 而 对 于 list 操 作 的 则 是 第 
一 个 函数 。 conj 函数 从 一 个 给 定 的 vector 创 建 一 个 新 的 vector 一 添加 一 个 元 素 
到 新 的 vector 的 最 后 面 去 . cons ZU — ^26 x f vector&| € — 4-31 9) vector 一 
添加 一 个 新 的 元 素 到 vector 的 最 前 面 去 。 


集合 


Sets 是 一 个 包含 不 重复 元 素 的 集合 。 当 我 们 要 求 集合 里 面 的 元 素 不 可 以 重复 ， 并 且 
我 们 不 要 求 集合 里 面 的 元 素 保持 它们 添加 时 候 的 顺序 ， 那 么 sets 是 比较 适合 的 。 
Clojure 支持 两 种 不 同 的 set : 排序 的 和 不 排序 的 。 如 果 添 加 到 Set 里 面 的 元 素 相 互 之 
间 不 能 比较 大 小 ， 那 么 一 个 ClassCastException 异常 会 被 抛 出 来 。 下 面 是 一 些 
创建 set 的 方法 : 


(def stooges (hash-set "Moe" "Larry" "Curly")) ; not sorted 
(def stooges #{"Moe" "Larry" "Curly"}) ; same as previous 
(def stooges (sorted-set "Moe" "Larry" "Curly")) 


contains? 函数 可 以 操作 sets 和 maps. 当 操 作 set 的 时 候 , 它 返 回 给 定 的 Set 是 否 包 
含 某 个 元 素 。 这 上 比 在 list 和 vector 上 面 使 用 的 ”some 函数 就 简单 多 了 . 看 例子 : 


(contains? stooges "Moe") ; -> true 
(contains? stooges "Mark") ; -» false 


Sets 可 以 被 当 作 它 里 面 的 元 素 的 函数 来 使 用 . 当 以 这 种 方式 来 用 的 时 候 ， 返 回 值 要 
么 是 这 个 元 素 ， 要 么 是 nil. 这 个 比 起 contains ? 函数 来 说 更 简洁 . 比如 : 


(stooges "Moe") ; -» "Moe" 
(stooges "Mark") ; -» nil 
(println (if (stooges person) "stooge" "regular person")) 


在 介绍 list 的 时 候 提 到 的 函数 conj 和 into 对 于 set 也 同样 适用 . 只 是 元 素 的 顺 
序 只 有 对 sorted-set 才 有 定义 . 


disj 函数 通过 去 掉 给 定 的 Set 里面 的 一 些 元 素来 创建 一 个 新 的 set. 看 例子 


(def more-stooges (conj stooges "Shemp")) ; -> #{"Moe" "Larry" "Cu! 
(def less-stooges (disj more-stooges "Curly")) ; -> #{"Moe" "Larry' 


Hi — — —Á— H —À—À MÀ 


你 也 可 以 看 看 clojure.set 名 字 空 间 里 面 的 一 些 函 数 : difference , index 
, intersection , join , map-invert , project , rename , 
rename-keys , select 和 union . X P EXE ot Remap Ke 
set ° 





映射 


Maps 保存 从 key 到 value 的 a 对 应 关系 一 key 和 value 都 可 以 是 任意 对 象 。key-value 
组 合 被 以 一 种 可 以 按照 Key 的 顺序 高 效 获取 的 方式 保存 着 。 


下 面 是 创建 map 的 一 些 方法 ， 其 中 过 号 是 为 了 提高 可 读 性 的 ， 它 是 可 选 的 ， 解 析 的 
时 候 会 被 当 作 空格 忽略 掉 的 。 


(def popsicle-map 

(hash-map :red :cherry, :green :apple, :purple :grape)) 
(def popsicle-map 

{:red :cherry, :green :apple, :purple :grape}) ; same as previou: 
(def popsicle-map 

(sorted-map :red :cherry, :green :apple, :purple :grape)) 


EL | 


Map 可 以 作为 它 的 key 的 函数 ， 同 时 如 果 key 是 keyword 的 话 ， 那 么 key 也 可 以 作为 
map 的 苑 数 。 下 面 是 三 种 获取 :green 所 对 应 的 值 的 方法 : 


(get popsicle-map :green) 
(popsicle-map :green) 
(:green popsicle-map) 


contains? 方法 可 以 操作 sets fe maps. 当 被 用 在 map 上 的 时 候 ， 它 返回 map 是 
否 包 含 给 定 的 key.，keys 函数 返回 map 里 面 的 所 有 的 key 的 集合 .vals 函数 返回 
map 里 面 所 有 值 的 集合 . 看 例子 : 


(contains? popsicle-map :green) ; -> true 
(keys popsicle-map) ; -> (:red :green :purple) 
(vals popsicle-map) ; -> (:cherry :apple :grape) 


assoc 函数 可 以 操作 maps 和 vectors. 当 被 用 在 map 上 的 时 候 ， 它 会 创建 一 个 新 
的 map ， 同 时 添加 任意 对 新 的 name-value pair, 如 果 某 个 给 定 的 key 已 经 存在 了 ， 
那么 它 的 值 会 被 更 新 。 看 例子 : 


(assoc popsicle-map :green :lime :blue :blueberry) 
; -> {:blue :blueberry, :green :lime, :purple :grape, :red :cherry. 


| 
dissoc 创建 一 个 新 的 map ， 同 时 忽略 掉 给 定 的 那么 些 key ， 看 例子 : 


(dissoc popsicle-map :green :blue) ; -> {:purple :grape, :red :chei 
«| 一 一 —] 


我 们 也 可 以 把 map 看 成 一 个 简单 的 集合 ， 集 合 里 面 的 每 个 元 素 是 一 个 pair: name- 
value: clojure.lang.MapEntry 对 象 . 这 样 就 可 以 和 doseq 跟 destructuring 一 起 
使 用 了 , 它们 的 作用 都 是 更 简单 地 来 遍历 map ， 我 们 会 在 后 面 详细 地 介绍 这 些 函 数 . 
下 面 的 这 个 例子 会 遍历 popsicle-map 里 面 的 所 有 元 素 ， 把 key bind 到 

color’ 把 value bind 到 flavor» name 函数 返回 一 个 Keyword 的 字符 串 名 字 。 








(doseq [[color flavor] popsicle-map] 
(println (str "The flavor of " (name color) 
" popsicles is " (name flavor) "."))) 


上 面 的 代码 的 输出 是 这 样 的 : 


The flavor of green popsicles is apple. 
The flavor of purple popsicles is grape. 
The flavor of red popsicles is cherry. 


select-keys 函数 接收 一 个 map 对 象 ， 以 及 一 个 key 的 集合 的 参数 ， 它 返回 这 个 
集合 里 面 key 在 那个 集合 里 面 的 一 个 子 map。 看 例子 : 
(select-keys popsicle-map [:red :green :blue]) ; -> {:green :apple, 
EI 8 


conj 函数 添加 一 个 map 里 面 的 所 有 元 素 到 另外 一 个 map 里 面 去 。 如 果 目 标 map 里 
面 的 key 在 源 map 里 面 也 有 ， 那 么 目标 map 的 值 会 被 更 新 成 源 map 里 面 的 值 。 


map 里 面 的 值 也 可 以 是 一 个 map， 而且 这 样 瞪 套 无 限 层 。 获 取 吹 套 的 值 是 非常 简单 
的 。 同 样 的 ， 更 新 一 个 谋 套 的 值 也 是 很 简单 的 。 


为 了 证 明 这 个 ， 我 们 会 创建 一 个 描述 人 (person) map » X P dE T —4 XA 
的 地 址 的 map， 同 时 还 有 一 个 叫做 employer 的 内 上 识 map。 





(def person { 
:name "Mark Volkmann" 
:address ( 
:Street "644 Glen Summit" 
:City "St. Charles" 
:state "Missouri" 
:zip 63304) 
:employer { 
:name "Object Computing, Inc." 
:address ( 
:street "12140 Woodcrest Executive Drive, Suite 250" 
:City "Creve Coeur" 
:State "Missouri" 
:zip 63141}}}) 


get-in Až ` Z -&gt; 以 及 函数 reduce 4T YA KRIAR Key. Fa 
展示 了 三 种 获取 这 个 人 的 employer 的 address 的 city 的 值 的 方法 : 


(get-in person [:employer :address :city]) 
(-» person :employer :address :city) ; explained below 
(reduce get person [:employer :address :city]) ; explained below 


ZG -&gt; 我 们 也 称 为 “thread” 宏 , 它 本 质 上 是 调用 一 系列 的 函数 ， 前 一 个 函数 的 
返回 值 作 为 后 一 个 函数 的 参数 . 比如 下 面 两 行 代码 的 作用 是 一 样 的 : 


CD (Chee (3 XD 
C> xXx f2 f1) 


在 名 字 空 间 clojure.contrib.core 里 面 还 有 个 -?> 宏 
果 它 的 调用 链 上 的 任何 一 个 函数 返回 nil (short-circiut)。 这 
NullPointerException #% ° 


reduce AZ E — 4 XE AA AA BK, 一 个 可 选 的 value 以 及 一 个 集合 。 它 
会 以 value 以 及 集合 的 第 一 个 元 素 作 为 参数 来 调用 给 定 的 函数 (如 果 指 定 了 value 的 
E) ， 要 么 以 集合 的 第 一 个 元 素 以 及 第 二 个 元 素 为 参数 来 调用 给 定 的 函数 ERE 
人 Lu 接着 就 以 这 个 返回 值 以 及 集合 里 面 的 下 一 个 元 素 为 参数 来 调用 
给 定 的 函数 ， 知 道 集 合 里 面 的 元 素 都 被 计算 了 一 最 后 返回 一 个 值 . 这 个 函数 与 ruby 
里 面 的 inject 以 及 Haskell 里 面 的 foldl 作用 是 一 样 的 。 


assoc-in SATU AA C AS ES Key fa » ET 44] F de personay 
employer->address->city1# ?X s Clayton f ° 


» . 
& 
ce 
GE 


(assoc-in person [:employer :address :city] "Clayton") 


update-in Zt, M R 39 3p 282€ 08 A de 8g Key iJia oA ZEE TT Mew 
一 个 给 定 的 函数 来 计算 出 来 。 下 面 的 例子 里 面 会 把 person 的 employer->address- 
>zip 改 成 昌 的 zip +“-1234"。 看 例子 : 
(update-in person [:employer :address :zip] str "-1234") ; using tl 


‘| _ E: 








StructMap 


StructMap 和 普通 的 map 类 似 ， 它 的 作用 其 实 是 用 来 模拟 java 里 面 的 javabean ， 所 
以 它 比 普通 的 map 的 优点 就 是 ， 它 把 一 些 常 用 的 字段 抽象 到 一 个 map 里 面 去 ， 这 样 
你 就 不 用 一 遍 一 遍 的 重复 了 。 并 且 和 java 类 似 ， 他 会 帮 你 生成 合适 的 equals 和 
hashCode 方法。 并且 它 还 提供 方式 让 你 可 以 创建 比 普 通 map 里 面 的 hash 查 找 要 
快 的 字段 访问 方法 (javabean 里 面 的 getXXX 方 法 ) 。 


create-struct 函数 和 defstruct 宏 都 可 以 用 来 定义 StructMap, defstruct 内 
部 调用 的 也 是 create-struct 。map 的 key 通 常 都 是 用 keyword 来 指定 的 。 看 例 
T: 


(def vehicle-struct (create-struct :make :model :year :color)) ; 1 
(defstruct vehicle-struct :make :model :year :color) ; short way 





struct 实例 化 StructMap 的 一 个 对 象 ， 相 当 于 java 里 面 的 new 关 键 字 . 你 提供 给 
struct 的 参数 的 顺序 必须 和 你 定义 的 时 候 提 供 的 keyword 的 顺序 一 致 ， 后 面 的 参数 可 
以 忽略 ， 如 果 忽 略 ， 那 么 对 应 key 的 值 就 是 nil。 看 例子 : 


(def vehicle (struct vehicle-struct "Toyota" "Prius" 2009)) 


accessor 子 数 可 以 创建 一 个 类 似 java 里 面 的 getXXX 的 方法 ， 它 的 好 处 是 可 以 避 
免 hash 查 找 ， 它 比 普通 的 hash 查 找 要 快 。 看 例子 : 


; Note the use of def instead of defn because accessor returns 
; a function that is then bound to "make". 

(def make (accessor vehicle-struct :make)) 

(make vehicle) ; -> "Toyota" 

(vehicle :make) ; same but slower 

(:make vehicle) ; same but slower 


在 创建 一 个 StructMap 之 后 ， 你 还 可 以 给 它 添加 在 定义 struct 的 时 候 没 有 指定 的 
key。 但 是 你 不 能 删除 定义 时 候 已 经 指定 的 key。 


E XL 


defn 宏 用 来 定义 一 个 函数 。 它 的 参数 包括 一 个 函数 名 字 ， 一 个 可 选 的 注释 字符 
囊 ， 参 数列 表 ， 然 后 一 个 方法 体 。 而 部 数 的 返回 值 则 是 方法 体 里 面 最 后 一 个 表达 式 
的 值 。 所 有 的 函数 都 会 返回 一 个 值 ， 只 是 有 的 返回 的 值 是 nil。 看 例子 : 


(defn parting 
"returns a String parting" 
[name] 
(str "Goodbye, " name)) ; concatenation 


(println (parting "Mark")) ; -» Goodbye, Mark 


函数 必须 先 定义 再 使 用 。 有 时 候 可 能 做 不 到 ， 比如 两 个 方法 项 目 调用 ，clojure 采 用 
了 和 C 语 言 里 面 类 似 的 做 法 : declare, 看 例子 : 


(declare <em>function-names</em>) 


通过 宏 defn- 定义 的 函数 是 私有 的 . 这 意味 着 它们 只 在 定义 它们 的 名 字 空 间 里 面 
TR. 其 它 一 些 类 似 定 义 私 有 函数 / 宏 的 还 有 : defmacro- 和 defstruct- (在 
clojure.contrib.def EX dme 


函数 的 参数 个 数 可 以 是 不 定 的 。 可 选 的 那些 参数 必须 放 在 最 后 面 (这 一 点 跟 其 它 语言 
是 一 样 的 ), 你 可 以 通过 加 个 & 符 号 把 它们 收集 到 一 个 list 里 面 去 Functions can take a 
variable number of parameters. Optional parameters must appear at the end. 
They are gathered into a list by adding an ampersand and a name for the list at 
the end of the parameter list. 


(defn power [base & exponents] 
; Using java.lang.Math static method pow. 
(reduce #(Math/pow %1 %2) base exponents)) 
(power 234) ; 2 to the 3rd = 8; 8 to the 4th = 4096 


函数 定义 可 以 包含 多 个 参数 列表 以 及 对 应 的 方法 体 。 每 个 参数 列表 必须 包含 不 同 个 
数 的 参数 。 这 通常 用 来 给 一 些 参数 指定 默认 值 。 看 例子 : 


(defn parting 
"returns a String parting in a given language" 
([] (parting "World")) 
([name] (parting name "en")) 
([name language] 
; condp is similar to a case statement in other languages. 
; It is described in more detail later. 
; It is used here to take different actions based on whether tt 
; parameter "language" is set to "en", "es" or something else. 
(condp = language 
en" (str "Goodbye, " name) 
"es" (str "Adios, " name) 
(throw (IllegalArgumentException. 
(str "unsupported language " language)))))) 


(println (parting)) ; -» Goodbye, World 

(println (parting "Mark")) ; -» Goodbye, Mark 

(println (parting "Mark" "es")) ; -> Adios, Mark 

(println (parting "Mark", "xy")) 

; -> java.lang.IllegalArgumentException: unsupported language xy 





匿名 函数 是 没有 名 字 的 。 他 们 通常 被 当 作 参数 传递 给 其 他 有 名 se E de 
HL) o E d à dip T AB ER FE AM 36877 48 78 85 CO ARUR JE] 9 Fd x LIES BAN 


(def years [1940 1944 1961 1985 1987]) 
(filter (fn [year] (even? year)) years) ; long way w/ named argumer 
(filter #(even? %) years) ; short way where % refers to the argumer 
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通过 fn 定义 的 匿名 函数 可 以 包 o du eed. 而 通过 #(...) ,定义 的 
匿名 函数 则 只 能 包含 一 个 表达 式 ， 如 果 你 想 包 含 多 个 表达 式 ， ,那么 把 它 用 Js 包 
起 来 。 如 果 只 有 一 个 参数 ， 那 么 你 o % 来 引用 它 ; RAE REAAZ AM 
么 可 以 通过 %1 ，%2 等 等 来 引用 。 看 例子 : 


(defn pair-test [test-fn n1 n2] 
(if (test-fn ni n2) "pass" "fail")) 


; Use a test-fn that determines whether 
; the sum of its two arguments is an even number. 
(println (pair-test #(even? (+ %1 %2)) 3 5)) ; -> pass 


Java 里 面 的 方法 可 以 根据 参数 的 类 型 来 进行 重 载 。 而 Clojure 里 面 则 只 能 根据 参数 的 
个 数 来 进行 重 载 。 不 过 Clojure 里 面 的 multimethods 技 术 可 以 实现 任意 类 型 的 重 载 。 


宏 defmulti 和 defmethod 经 常 被 用 在 一 起 来 定义 multimethod. % 宏 

defmulti 的 参数 包括 一 个 方法 名 以 及 一 个 dispatch 有 函数 ， 3 4- dispatch hak & 38 
回 值 会 被 用 来 选择 到 底 调 用 哪个 重 载 的 函数 。 宏 defmethod 的 参数 则 包括 方法 
名 ，dispatch 的 值 ， 参 数列 表 以 及 方法 体 。 一 个 特殊 的 dispatch 值 :default 是 
用 RACRECU OUS] 一 即 如 果 其 它 的 dispatch 值 都 不 匹配 的 话 ， 那 么 就 调用 这 个 方 
法 。 defmethod 多 定义 的 名 字 一 样 的 方法 ， 它 们 的 参数 个 数 必 须 一 样 。 传 给 
multimethod 49 #4 24% #dipatch žr áy ° 


下 面 是 一 个 用 multimethod 来 实现 基于 参数 的 类 型 来 进行 重 载 的 例子 : 


(defmulti what-am-i class) ; class is the dispatch function 
(defmethod what-am-i Number [arg] (println arg "is a Number")) 
(defmethod what-am-i String [arg] (println arg "is a String")) 
(defmethod what-am-i :default [arg] (println arg "is something els: 
(what-am-i 19) ; -» 19 is a Number 

(what-am-i "Hello") ; -> Hello is a String 

(what-am-i true) ; -» true is something else 





Al X dispatch x Zi T AZ 4£ 3k — e BH? Pp MAR T YA 4k A o f dispatch £A ° 
Hite — 4- A XX 3L 8j dispatch BA T AZ TRAE — 4 ZR AATAKAI :small 
:medium 以 及 :large 。 然 后 对 应 每 种 尺寸 有 一 个 方法 。 


下 划 线 可 以 用 来 作为 参数 占 位 符 ?- 如 果 你 不 要 使 用 这 个 参数 的 话 。 这 个 特性 在 回 
调 函 数 里 面 比 较 有 用 ， 因为 回调 函数 的 设计 者 通常 想 把 尽 可 能 多 的 信息 给 你 ， 而 
你 通常 可 能 只 需要 其 中 的 一 部 分 。 看 例子 : 


(defn callbacki [ni n2 n3] (+ ni n2 n3)) ; uses all three argument: 
(defn callback2 [ni _ n3] (+ n1 n3)) ; only uses ist & 3rd argument 
(defn caller [callback value] 

(callback (+ value 1) (+ value 2) (+ value 3))) 
(caller callbacki 10) ; 11 + 12 + 13 -> 36 
(caller callback2 10) ; 11 + 13 -> 24 


ME 





complement 函数 接受 一 个 函数 作为 参数 ， 如 果 这 个 参数 返回 值 是 true， 那 么 它 
就 返回 false, 相当 于 一 个 取 反 的 操作 。 看 例子 : 


(defn teenager? [age] (and (>= age 13) (< age 20))) 
(def non-teen? (complement teenager?)) 
(println (non-teen? 47)) ; -» true 


comp 把 任意 多 个 函数 组 合成 一 个 ， 前 面 一 个 函数 的 返回 值 作为 后 一 个 函数 的 
和 参数。 调用 的 顺序 是 从 右 到 左 (注意 不 是 从 左 到 右 ) 看 例子 : 


(defn times2 [n] (* n 2)) 

(defn minus3 [n] (- n 3)) 

; Note the use of def instead of defn because comp returns 
; a function that is then bound to "my-composition". 

(def my-composition (comp minus3 times2)) 

(my-composition 4) ; 4*2 - 3 -> 5 


partial 部 数 创建 一 个 新 的 函数 一 通过 给 旧 的 函数 制定 一 个 初始 值 ， 然 后 再 调 
用 原来 的 函数 。 比 如 * 是 一 个 可 以 接受 多 个 参数 的 函数 ， 它 的 作用 就 是 计算 它们 
的 乘积 ， 如 果 我 们 想 要 一 个 新 的 函数 ， 使 的 返回 结果 始终 是 乘积 的 2 倍 ， 我 们 可 以 
这 样 做 : 


; Note the use of def instead of defn because partial returns 
; a function that is then bound to "times2". 

(def times2 (partial * 2)) 

(times2 34) ; 2* 3 * 4 -> 24 


下 面 是 一 个 使 用 map 和 partial 的 有 趣 的 例子 . 


(defn- polynomial 
"computes the value of a polynomial 
with the given coefficients for a given value x" 
[coefs x] 
; For example, if coefs contains 3 values then exponents is (2 1 
(let [exponents (reverse (range (count coefs)))] 
; Multiply each coefficient by x raised to the corresponding e 
; and sum those results. 
; coefs go into %1 and exponents go into %2. 
(apply + (map #(* %1 (Math/pow x %2)) coefs exponents)))) 


(defn- derivative 
"computes the value of the derivative of a polynomial 
with the given coefficients for a given value x" 
[coefs x] 
; The coefficients of the derivative function are obtained by 
; multiplying all but the last coefficient by its corresponding :4 
; The extra exponent will be ignored. 
(let [exponents (reverse (range (count coefs))) 
derivative-coefs (map #(* %1 %2) (butlast coefs) exponents: 
(polynomial derivative-coefs x))) 


(def f (partial polynomial [2 1 3])) ; 2x42 + x + 3 
(def f-prime (partial derivative [2 1 3])) ; 4x * 1 


(Printing "f(2) =" (f 2)) ; -> 13.0 
(println "f'(2) =" (f-prime 2)) ; -> 9.0 








下 面 是 另外 一 种 做 法 (Francesco Strino# ix ág). 
%1 =a, %2 = b, result is ax + b 


%1 = ax + b, %2 = c, result is (ax + bx +c = ax^2 + bx + c 


(defn- polynomial 
"computes the value of a polynomial 
with the given coefficients for a given value x" 
[coefs x] 
(reduce #(+ (* x %1) %2) coefs)) 


memoize Až- AE C TE] LA AR 83 S AUI — IARE P YS 
同样 的 参数 被 调用 了 两 次 ， 那 么 它 就 直接 从 缓存 里 面 返回 缓存 了 的 结果 ， 以 提高 效 
率 ， 但 是 当然 它 会 需要 更 多 的 内 存 。 20 5 DA ee INTE 这 个 技术 ， 
因为 函数 没有 side-effect, 多 次 调用 的 结果 保证 是 一 样 的 ) 


time du | de oo 包 起 来 的 函数 的 执行 时 间 ， 并 
且 返 回 这 个 防 数 的 返回 值 。 看 下 面 例子 里 面 是 怎么 用 的 。 


下 面 的 例子 演示 在 多 项 式 的 的 计算 里 面 使 用 memoize: 


; Note the use of def instead of defn because memoize returns 
; a function that is then bound to "memo-f". 
(def memo-f (memoize f)) 


(println "priming call") 
(time (f 2)) 


(println "without memoization") 
; Note the use of an underscore for the binding that isn't used. 
(dotimes [ 3] (time (f 2))) 


(println "with memoization") 
(dotimes [ 3] (time (memo-f 2))) 


上 面 代 码 的 输出 是 这 样 的 : 


priming call 

"Elapsed time: 4.128 msecs" 
without memoization 
"Elapsed time: 0.172 msecs" 
"Elapsed time: 0.365 msecs" 
"Elapsed time: 0.19 msecs" 
with memoization 

"Elapsed time: 0.241 msecs" 
"Elapsed time: 0.033 msecs" 
"Elapsed time: 0.019 msecs" 


从 上 面 的 输出 我 们 可 以 看 到 好 几 个 东西 。 首 先 第 一 个 方法 调用 比 其 它 的 都 要 长 很 

£ — 其 实 这 和 用 不 用 memonize 没 有 什么 关系 。 第 一 个 memoize 调 用 所 花 的 时 间 
也 要 比 其 他 memoize 调 用 花 的 时 间 要 长 ， 因为 要 操作 缓存 ， 其 它 的 memoize 调 用 就 
要 快 很 多 了 。 


Java 互 操作 


Clojure 程 序 可 以 使 用 所 有 的 java 类 以 及 接口 。 和 在 java 里 面 一 样 java.lang 这 个 
包 里 面 的 类 是 默认 导入 的 。 你 可 以 手动 的 用 import 函数 来 导入 其 它 包 的 类 。 看 
例子 : 


(import 
'(java.util Calendar GregorianCalendar) 
'(javax.swing JFrame JLabel)) 


同时 也 可 以 看 下 宏 ns 下 面 的 


[:import](http://xumingming.sinaapp.com/302/clojure-functional-progi! 


有 两 种 方式 可 以 访问 类 里 面 的 常量 的 : 


(. java.util.Calendar APRIL) ; -> 3 

(. Calendar APRIL) ; works if the Calendar class was imported 
java.util.Calendar/APRIL 

Calendar/APRIL ; works if the Calendar class was imported 


在 Clojure 代 码 里 面 调 用 java 的 方法 是 很 简单 的 。 因 此 很 多 java 里 面 已 经 实现 的 功能 
Clojure 就 没有 实现 自己 的 了 。 比 如 , Clojure 里 面 没有 提供 函数 来 计算 一 个 数 的 绝对 
值 ， 因 为 可 以 用 java.lang.Math 里 面 的 abs 方 法 。 而 另 一 方面 ， 比 如 这 个 类 里 
面 还 提供 了 一 个 max 方法 来 计算 两 个 数 里 面 比较 大 的 一 个 , 但 是 它 只 接受 两 个 参 
数 ， 因 此 Clojure 里 面 自己 提供 了 一 个 可 以 接受 多 个 参数 的 max 函 数 。 


有 两 种 方法 可 以 调用 java 里 面 的 静态 方法 : 


(. Math pow 2 4) ; -> 16.0 
(Math/pow 2 4) 


同样 也 有 两 种 方法 来 创建 一 个 新 的 java 的 对 象 ， 看 下 面 的 例子 。 这 里 注意 一 下 我 们 
用 def 创建 的 对 象 bind 到 一 个 全 局 的 binding。 这 个 其 实 不 是 必须 的 。 有 好 几 种 方 
式 可 以 得 到 一 个 对 象 的 引用 比如 把 它 加 入 一 个 集合 或 者 把 它 传 入 一 个 函数 。 


(import '(java.util Calendar GregorianCalendar)) 
(def calendar (new GregorianCalendar 2008 Calendar/APRIL 16)) ; Ap! 
(def calendar (GregorianCalendar. 2008 Calendar/APRIL 16)) 





同样 也 有 两 种 方法 可 以 调用 java 对 象 的 方法 : 


(. calendar add Calendar/MONTH 2) 

(. calendar get Calendar/MONTH) ; -> 5 
(.add calendar Calendar/MONTH 2) 

(.get calendar Calendar/MONTH) ; -> 7 


一 般 来 说 我 们 比较 推荐 使 用 下 面 那 种 用 法 (.add, .get), 上 面 那 种 用 法 在 定义 宏 的 时 候 
用 得 比较 多 ， 这 个 等 到 我 们 讲 到 宏 的 时 候 再 做 详细 介绍 。 


方法 调用 可 以 用 2. KBAR: 


(. (. calendar getTimeZone) getDisplayName) ; long way 
(.. calendar getTimeZone getDisplayName) ; -> "Central Standard Tir 





还 一 个 宏 : .?. 在 clojure.contrib.core 名 字 空 间 里 面 ， 它 和 上 面 .. 这 个 宏 
的 区 别 是 ， 在 调用 的 过 程 中 如 果 有 一 个 返回 结果 是 nil, 它 就 不 再 继续 调用 了 ， 可 以 
防止 出 现 NullPointerException 异常 。 


doto 函数 可 以 用 来 调用 一 个 对 象 上 的 多 个 方法 。 它 返回 它 的 第 一 个 参数 ， 也 就 
是 所 要 调用 方法 的 对 象 。 这 对 于 初始 化 一 个 对 象 的 对 各 属性 是 非常 方便 的 。 (看 下 
面 "Namespaces“ 那 一 节 的 JFrame GUI 对 象 的 例子 ). 比如 : 


(doto calendar 

(.set Calendar/YEAR 1981) 

(.set Calendar/MONTH Calendar/AUGUST) 

(.set Calendar/DATE 1)) 
(def formatter (java.text.DateFormat/getDateInstance)) 
(.format formatter (.getTime calendar)) ; -» "Aug 1, 1981" 


memfn 宏 可 以 自动 生成 代码 以 使 得 java 方 法 可 以 当成 clojure 里 面 的 “一 等 公民 ”来 
对 待 。 这 个 可 以 用 来 替代 clojure 里 面 的 匿名 方法 。 当 用 memfn 来 调用 java 里 面 那 
些 需要 参数 的 方法 的 时 候 ， 你 必须 给 每 个 参数 指定 一 个 名 字 ， 以 让 clojure 知 道 你 要 
调用 的 方法 需要 几 个 参数 。 这 些 名 字 到 底 是 什么 不 重要 ， 但 是 它们 必须 要 是 唯一 
的 ， 因 为 要 用 这 些 名 字 来 生成 Clojure 代 码 的 。 下 面 的 代码 用 了 一 个 map 方 法 来 从 第 
二 个 集合 里 面 取 beginlndex 来 作为 参数 调用 第 一 个 集合 里 面 的 字符 串 的 substring 方 
法 。 大 家 可 以 看 一 下 用 匿名 函数 和 用 memfn 来 直接 调用 java 的 方法 的 区 别 。 


(println (map #(.substring %1 %2) 
['Moe" "Larry" "Curly"] [1 2 3])) ; -> (oe rry ly) 


(println (map (memfn substring beginIndex) 
["Moe" "Larry" "Curly"] [1 2 3])) ; -> same 


代理 


proxy 创建 一 个 继承 了 指定 类 并 且 / 或 者 实现 了 0 个 或 者 多 个 接口 的 类 的 对 象 。 这 
对 于 创建 那 种 必须 要 实现 某 个 接口 才能 得 到 通知 的 listener 对 象 很 有 用 。 举 一 个 例 
子 ， 大 家 可 以 看 下 面 “Desktop Applications” 那 一 节 的 例子 。 那 里 我 们 创建 了 一 个 
继承 JFrame 类 并 且 实 现 ActionListener 接 口 的 类 的 对 象 。 


线程 


所 有 的 Cloiure 方 法 都 实现 了 
[java.lang.Runnable](http://java.sun.com/javase/6/docs/api/java/lant 

接口 和 
[java.util.concurrent.Callable](http://java.sun.com/javase/6/docs/a| 

接口 。 这 使 得 非常 容易 把 Clojure 里 面 函 数 和 java 里 面 的 线程 一 起 使 用 。 上 比如 : 


(defn delayed-print [ms text] 


Na Na Nae Ne 


(m 


(Thread/sleep ms) 
(println text)) 


Pass an anonymous function that invokes delayed-print 

to the Thread constructor so the delayed-print function 
executes inside the Thread instead of 

while the Thread object is being created. 

start (Thread. #(delayed-print 1000 ", World!"))) ; prints 2nd 


(print "Hello") ; prints ist 


, 


; output is "Hello, World!" 


异常 处 理 


Clojure 代 码 里 面 抛 出 来 的 异常 都 是 运行 时 异常 。 当 然 从 Clojure 代 码 里 面 调用 的 java 
代码 还 是 可 能 抛 出 那 种 需要 检查 的 异常 的 。 try , catch , finally 以 及 
throw 提供 了 和 java 里 面 类 似 的 功能 : 


(defn collection? [obj] 
(println "obj is a" (class obj)) 
; Clojure collections implement clojure.lang.IPersistentCollecti« 
(or (coll? obj) ; Clojure collection? 
(instance? java.util.Collection obj))) ; Java collection? 


(defn average [coll] 
(when-not (collection? coll) 
(throw (IllegalArgumentException. "expected a collection"))) 
(when (empty? coll) 
(throw (IllegalArgumentException. "collection is empty"))) 
; Apply the + function to all the items in coll, 
; then divide by the number of items in it. 
(let [sum (apply + coll)] 
(/ sum (count coll)))) 


(try 
(println "list average -" (average '(2 3))) ; result is a clojur« 
(println "vector average -" (average [2 3])) ; same 
(println "set average =" (average #{2 3})) ; same 


(let [al (java.util.ArrayList.)] 
(doto al (.add 2) (.add 3)) 
(println "ArrayList average -" (average al))) ; same 
(println "string average -" (average "1 2 3 4")) ; illegal argum: 
(catch IllegalArgumentException e 
(println e) 
;(.printStackTrace e) ; if a stack trace is desired 
) 
(finally 
(println "in finally"))) 


加 
上 面 代码 的 输出 是 这 样 的 : 





obj is a clojure.lang.PersistentList 

list average - 5/2 

obj is a clojure.lang.LazilyPersistentVector 
vector average - 5/2 

obj is a clojure.lang.PersistentHashSet 

set average - 5/2 

obj is a java.util.ArrayList 

ArrayList average = 5/2 

obj is a java.lang.String 
#<IllegalArgumentException java.lang.IllegalArgumentException: 
expected a collection> 
in finally 


条 件 处 理 


if 这 个 special form 跟 java 里 面 的 if 的 语义 是 一 样 的 ， 它 接受 三 个 参数 ， 第 一 个 
是 需要 判断 的 条 件 ， 第 二 个 表达 式 是 条 件 成 立 的 时 候 要 执行 的 表达 式 ， 第 三 个 参数 
是 可 选 的 ， 在 条 件 不 成 立 的 时 候 执行 。 如 果 需 要 执行 多 个 表达 式 ， 那 么 把 多 个 表达 
式 包 在 do 里 面 。 看 例子 : 


(import '(java.util Calendar GregorianCalendar)) 


(let [gc (GregorianCalendar. ) 
day-of-week (.get gc Calendar/DAY OF WEEK) 
is-weekend (or (= day-of-week Calendar/SATURDAY) (= day-of -we 
(if is-weekend 
(println "play") 
(do (println "work") 
(println "sleep")))) 


4] = mem 

E when 和 when-not 提供 和 if 类 似 的 功能 ， 只 是 它们 只 在 条 件 成 立 (或 者 不 
成 立 ) 时 候 执行 一 个 表达 式 。 另 一 个 不 同 是 ， 你 可 以 执行 任意 数目 的 表达 式 而 不 用 
用 do 把 他 们 包 起 来 。 





(when is-weekend (println "play")) 
(when-not is-weekend (println "work") (println "sleep")) 


X if-let 把 一 个 值 bind 到 一 个 变量 ， 然 后 根据 这 个 binding 的 值 来 决定 到 底 执行 
哪个 表达 式 。 下 面 的 代码 会 打印 队列 里 面 第 一 个 等 待 的 人 的 名 字 ， 或 者 打印 “no 
waiting” 如 果 队 列 里 面 没 有 人 的 话 。 


(defn process-next [waiting-line] 
(if-let [name (first waiting-line)] 
(println name "is next") 
(println "no waiting"))) 


(process-next '("Jeremy" "Amanda" "Tami")) ; -» Jeremy is next 
(process-next '()) ; -» no waiting 


when-let 宏 跟 if-let AM, 不 同 之 处 跟 上 面 if 和 when 的 不 同 之 处 是 
类 似 的 。 他 们 没有 else 部 分 ， 同 时 还 支持 执行 任意 多 个 表达 式 。 比 如 : 


(defn summarize 
"prints the first item in a collection 
followed by a period for each remaining item" 
[coll] 
; Execute the when-let body only if the collection isn't empty. 
(when-let [head (first coll)] 
(print head) 
; Below, dec subtracts one (decrements) from 
; the number of items in the collection. 
(dotimes [ (dec (count coll))] (print \.)) 
(println))) 


(summarize ["Moe" "Larry" "Curly"]) ; -» Moe.. 
(summarize []) ; -» no output 


ES 到 


condp 宏 跟 其 他 语言 里 面 的 switch/case 语 句 差不多 。 它 接受 两 个 参数 ， 一 个 谓词 
参数 (通常 是 = 或 者 instance? ) 以 及 一 个 表达 式 作为 第 二 个 参数 。 在 这 之 
后 ， 它 接受 任意 数量 的 值 -表达 式 的 对 子 ， 这 些 对 子 会 按 顺 序 evaluate。 如 果 谓 词 的 
ARE MARAT > 那么 对 应 的 表达 式 就 被 执行 。 一 个 可 选 的 最 后 一 个 参数 可 以 
指定 ， 这 个 参数 指定 如 果 一 个 条 件 都 不 符合 的 话 ， 那 么 就 返回 这 个 值 。 如 果 这 个 
值 没有 指定 ， 而 且 没 有 一 个 条 件 符合 谓词 ， 那 么 一 个 
IllegalArgumentException 异常 就 会 被 抛 出 。 


下 面 的 例子 让 用 户 输入 一 个 数字 ， 如 果 用 户 输 入 的 数字 是 1，2，3， 那 么 程序 会 打 
印 这 些 数字 对 应 的 英文 单词 。 否 则 它 会 打印 "Unexpected value”。 在 那 之 后 ， 它 会 
测试 一 个 本 地 binding 的 类 型 ， 如 果 是 个 数字 它 会 打印 这 个 数字 乘 以 2 的 结果 ; 如 果 
是 字符 串 ， 那 么 打印 这 个 字符 串 的 长 度 乘 以 2 的 结果 。 


(print "Enter a number: ") (flush) ; stays in a buffer otherwise 
(let [reader (java.io.BufferedReader. *in*) ; stdin 
line (.readLine reader) 
value (try 
(Integer/parseInt line) 
(catch NumberFormatException e line))] ; use string \ 
(println 
(condp = value 
1 "one" 
2 "two" 
3 "three" 
(str "unexpected value, \"" value \"))) 
(println 
(condp instance? value 
Number (* value 2) 
String (* (count value) 2)))) 








cond 宏 接受 任意 个 谓词 /结果 表达 式 的 组 合 。 它 按照 顺序 来 测试 所 有 的 谓词 ， 直 
到 有 一 个 谓词 的 测试 结果 是 true ， 那 么 它 返 回 其 所 对 应 的 结果 。 如 果 没 有 一 个 谓词 
的 测试 结果 是 true ， 那 么 会 抛 出 一 个 IllegalArgumentException Jt » Å% 
最 后 一 个 谓词 一 般 都 是 true, 以 充当 默认 情况 。 


下 面 的 例子 让 用 户 输入 水 的 温度 ， 然 后 打印 出 水 的 状态 : 是 冻 住 了 ， 还 是 烧 开 
了 ， 还 是 一 般 状态 。 


(print "Enter water temperature in Celsius: ") (flush) 
(let [reader (java.io.BufferedReader. *in*) 
line (.readLine reader) 
temperature (try 
(Float/parseFloat line) 
(catch NumberFormatException e line))] ; use string value : 
(println 
(cond 
(instance? String temperature) "invalid temperature" 
(<= temperature 0) "freezing" 
(>= temperature 100) "boiling" 
true "neither"))) 





Wk AN 


有 很 多 方法 可 以 遍历 一 个 集合 。 


宏 dotimes 会 执行 给 定 的 表达 式 一 定 次 数 , 一 个 本 地 binding 会 被 给 定 值 : 从 0 到 
一 个 给 定 的 数值 . 如 果 这 个 本 地 binding 是 不 需要 的 (下 面 例子 里 面 的 
card-number ), 可 以 用 下 划 线 来 代替 ， 看 例子 : 
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(dotimes [card-number 3] 
(println "deal card number" (inc card-number))) ; adds one to ca! 





注意 下 上 面 例 子 里 面 的 inc 函数 是 为 了 让 输出 变 成 1, 2, 3 而 不 是 0, 1, 2。 上 面 
代码 的 输出 是 这 样 的 : 


deal card number 1 
deal card number 2 
deal card number 3 


Z while 会 一 直 执 行 一 个 表达 式 只 要 指定 的 条 件 为 true. 下 面 例子 里 面 的 
while 会 一 直 执 行 ， 只 要 这 个 线程 没有 停 : 


(defn my-fn [ms] 
(println "entered my-fn") 
(Thread/sleep ms) 
(println "leaving my-fn")) 


(let [thread (Thread. #(my-fn 1))] 
(.start thread) 
(println "started thread") 
(while (.isAlive thread) 
(print ".") 
(flush)) 
(println "thread stopped")) 


上 面 代 码 的 输出 是 这 样 的 : 


started thread 

metet entered my-fn. 

ce leaving my-fn. 
thread stopped 


列表 推导 式 


X for 和 doseq 可 以 用 来 做 list comprehension. 它们 支持 遍历 多 个 集合 (KE 
边 的 最 快 ) ， 同 时 还 可 以 做 一 些 过 滤 用 :when fe :while。 Æ for 只 接受 一 
个 表达 式 ， 它 返回 一 个 懒惰 集合 作为 结果 . 宏 doseq 接受 任意 数量 的 表达 式 , 以 有 
副作用 的 方式 执行 它们 , FLA nil 


下 面 的 例子 会 打印 一 个 矩阵 里 面 所 有 的 元 素 出 来 。 它 们 会 跳 过 “B” 列 并 且 只 输出 
小 于 3 的 那些 行 。 我 们 会 在 “序列 " 那 一 闻 介绍 dorun ， 它 会 强制 提取 for 所 返回 的 
HERS. 


(def cols "ABCD") 
(def rows (range 1 4)) ; purposely larger than needed to demonstrat 


(println "for demo") 
(dorun 
(for [col cols :when (not= col NB) 
row rows :while (« row 3)] 
(println (str col row)))) 


(println "\ndoseq demo") 

(doseq [col cols :when (not- col \B) 
row rows :while (« row 3)] 
(println (str col row))) 





上 面 的 代码 的 输出 是 这 样 的 : 


for demo 


ZX loop 是 一 个 special form, 从 它 的 名 字 你 就 可 以 猜 出 来 它 是 用 来 遍历 的 . 它 以 及 
和 它 类 似 的 recur 会 在 下 一 节 介 绍 . 
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递归 发 生 在 一 个 函数 直接 或 者 间接 调用 自己 的 时 候 。 一 般 来 说 递归 的 退出 条 件 有 检 
查 一 个 集合 是 否 为 空 ， 或 者 一 个 状态 Tio 变 成 了 某 个 特定 的 值 (比如 0)。 这 一 种 

情况 一 般 利 用 连续 调用 集合 里 面 的 next 函数 来 实现 。 后 一 种 情况 一 般 是 利用 
dec 函数 来 递减 某 一 个 变量 来 实现 。 


如 果 递 归 的 层次 太 深 的 话 ， 那 么 可 能 会 产生 内 存 不 足 的 情况 。 所 以 一 些 编程 语言 利 
用 “tail call optimization ”(TCO) 的 技术 来 解决 这 个 问题 。 但 是 目前 Java 和 Clojure 

都 不 支持 这 个 技术 。 在 Clojure 里 面 避免 这 个 问题 的 一 个 办 法 是 使 用 special form: 
loop 和 recur 。 男 一 个 方法 是 使 用 trampoline 函数 。 


loop / recur 组 合 把 一 个 看 似 北 归 的 调用 变 成 一 个 迭代 一 迭代 不 需要 占用 栈 
空间 。 loop special form 跟 let special form 类 似 的 地 方 是 它们 都 会 建立 一 个 
本 地 binding * 它 也 建立 一 个 递归 点 ， 而 这 个 北 归 点 就 是 recur 的 参数 里 面 
的 那个 函数 。 loop idee iU MN leds o 3} recur 的 调用 使 得 程序 的 控 
制 权 返回 给 loop 并 且 给 那些 本 地 binding 赋 了 新 的 值 。 给 recur 传 递 的 参数 一 定 要 
和 |oop 所 创建 建 的 binding 的 个 数 一 样 。 同 样 recur 只 能 出 现在 loop 这 个 special form 的 
最 后 一 行 。 


(defn factorial-1 [number] 
"computes the factorial of a positive integer 
in a way that doesn't consume stack space" 
(loop [n number factorial 1] 
(if (zero? n) 
factorial 
(recur (dec n) (* factorial n))))) 


(println (time (factorial-1 5))) ; -> "Elapsed time: 0.071 msecs"\r 
gu —— Hán 





defn 宏 跟 loop special form 一 样 也 会 建立 一 个 递归 点 。 recur special form 
也 可 以 被 用 在 一 个 函数 的 最 后 一 句 用 来 把 控制 权 返 回 到 函数 的 第 一 名 并 以 新 的 参数 
重新 执行 。 


另外 一 种 实现 factorial BAA AKA reduce 函数 。 这 个 我 们 在 “集合 " 那 一 
节 就 已 经 介绍 过 了 。 它 支持 一 种 更 加 "函数 "的 方式 来 做 这 个 事情 。 不 过 不 幸 的 是 ， 
在 这 种 情况 下 ， 它 的 效率 要 低 一 点 。 注 意 一 下 _range 函数 返回 一 个 数字 的 范围 ， 
这 个 范围 包括 它 的 左边 界 ， 但 是 不 包括 它 的 右边 界 。 


(defn factorial-2 [number] (reduce * (range 2 (inc number)))) 


(println (time (factorial-2 5))) ; -> "Elapsed time: 0.335 msecs"\r 
«| = — p 








你 可 以 把 上 面 的 reduce 换 成 apply, 可 以 得 到 同样 的 结果 ， 但 是 apply 要 更 慢 
一 点 。 这 也 说 明了 我 们 要 熟悉 每 个 方法 的 特点 的 重要 性 ， 以 在 各 个 场合 使 用 合适 的 
函数 。 


recur 不 支持 那 种 一 个 函数 调用 另外 一 个 函数 ， 然 后 那个 函数 再 回调 这 个 函数 的 
这 种 递归 。 但 是 我 们 没有 提 到 的 
[trampoline](http://clojure.github.com/clojure/clojure.core-api.htm. 


函数 是 支持 的 。 


ins 


Clojure 提供 了 很 多 函数 来 充当 谓词 的 功能 一 测试 条 件 是 否 成 立 。 它 们 的 返回 值 是 
true 或 者 false。 在 Clojure 里 面 false 以 及 nil 被 解释 成 false. true UATE 
何其 他 和 值 都 被 解释 成 ttue， 包括 0。 谓 词 函 数 的 名 字 一 般 以 问号 结尾 。 

反射 是 一 种 获取 一 个 对 象 的 特性 ， 而 不 是 它 的 值 的 过 程 。 比 如 说 对 象 的 类 型 。 有 很 
多 谓词 函数 进行 反射 。 测试 一 个 对 象 的 类 型 的 谓词 包括 class? , coll? , 
decimal? , delay? , float? , fn? , instance? , integer? , isa? 
, keyword? , list? , macro? , map? , number? , seq? , set? , 
string? 以 及 vector? ° — EÉ3EiH TZ sERARARTE S LAE: 
ancestors , bases , class , ns-publics 以 及 parents ° 

测试 两 个 值 之 间 关 系 的 谓词 有 : Alt; , @lt;= , = , not= , == , &gt; 
&gt;= , compare , distinct? 以 及 identical? 


测试 逻辑 关系 的 谓词 有 : and , or , not , true? , false? 和 nil? 


测试 集合 的 一 些 谓词 在 前 面 已 经 讨论 过 了 ， 和 包括 : empty? 
every? , not-every? , some? 以 及 not-any? 


, not-empty , 


测试 数字 的 谓词 有 even? , neg? , odd? , pos? 以 及 zero? 


序列 


序列 可 以 看 成 是 集合 的 一 个 逻辑 视图 。 许 多 事物 可 以 看 成 是 序列 。 包 括 Java 的 集 
合 ，Clojure 提 供 的 集合 ， 字 符 串 ， 流 ， 目 录 结 构 以 及 XML 树 。 


很 多 Clojure 的 函数 返回 一 个 lazy 序 列 (LazySeq), 这 种 序列 里 面 的 元 素 不 是 实际 的 数 
据 ， 而 是 一 些 方法 ， 它 们 直到 用 户 盖 正 需要 数据 的 时 候 才 会 被 调用 。LazySeq 的 
一 个 好 处 是 在 你 创建 这 个 序列 的 时 候 你 不 用 太 担 心 这 个 序列 到 底 会 有 多 少 元 素 。 下 
面 是 会 返回 lazySeg 的 一 些 函 数 : cache-seq , concat , cycle , distinct 
drop , drop-last , drop-while , filter , for , interleave 
interpose , iterate , lazy-cat , lazy-seq , line-seq , map 
partition , range , re-seq , remove , repeat , replicate , 

take , take-nth , take-while and tree-seq ^? 


LazySeq 是 刚 接触 Clojure 的 人 比较 容易 弄 不 清楚 的 一 个 东西 。 上 比如 你 们 觉得 下 面 这 
个 代码 的 输出 是 什么 ? 


(map #(println %) [1 2 3]) 


当 在 一 个 REPL 里 面 运行 的 时 候 ， 它 会 输出 1, 2 和 3 在 单独 的 行 上 面 ， 以 及 三 个 
nil( 三 个 printIn 的 返回 结果 )。REPL 总 是 立即 解析 /调用 我 们 所 输入 的 所 有 的 表达 式 。 
但 是 当 作 为 一 个 脚本 来 运行 的 时 候 ， 这 名 代码 不 会 输出 任何 东西 。 因 为 map BA 
返回 的 是 一 个 LazySeq。 


有 很 多 方法 可 以 强制 LazySeq 对 它 里 面 的 方法 进行 调用 。 比 如 从 序列 里 面 获取 一 个 
元 素 的 方法 first , second , nth 以 及 last 都 能 达到 这 个 效果 。 序 列 里 
面 的 方法 是 按 顺序 调用 的 ， 所 以 你 如 果 要 获取 最 后 一 个 元 素 ， 那 么 整个 LazySeq 
里 面 的 方法 都 会 被 调用 。 


如 果 LazySeq 的 头 被 存在 一 个 binding 里 面 ， 那 么 一 旦 一 个 元 素 的 方法 被 调用 了 ， 那 
么 这 个 元 素 的 值 会 被 缓存 起 来 ， 下 次 我 们 再 来 获取 这 个 元 素 的 时 候 就 不 用 再 调用 肛 
数 了 。 


dorun 和 doall 函数 迫使 一 个 LazySeqg 里 面 的 函数 被 调用 。 doseq Z, 我 们 
HE "TEAK" 那 一 节 提 到 过 的 , 会 迫使 一 个 或 者 多 个 LazySeq 里 面 的 函数 调用 。 for 
宏 ,也 在 是 "迭代 ? 那 一 节 提 到 的 ， 不 会 强制 调用 LazySeg 里 面 的 方法 ， 相 反 ， 他 会 
返回 另外 一 个 LazySeq。 

为 了 只 是 简单 的 想 要 迫使 LazySeq 里 面 的 方法 被 调用 ， 那 么 doseq 或 者 dorun 
就 够 了 。 调 用 的 结果 不 会 被 保留 的 ， 所 以 占用 的 内 存 也 就 比较 少 。 这 两 个 方法 的 返 
回 值 都 是 nil .如果 你 想 调 用 的 结果 被 缓存 ， 那 么 你 应 该 使 用 doall 


下 面 的 表格 列 出 来 了 强制 LazySeq 里 面 的 方法 被 调用 的 几 个 办 法 。 


wc E Iu A s < de 
结果 要 缓存 只 要 求 方 法 被 执行 ， 不 需 


要 缓存 
操作 单个 序列 doall dorun 
利用 list comprehension 语 法 来 操作 多 
个 序列 N/A dosed 


一 般 来 说 我 们 比较 推荐 使 用 doseq 而 不 是 dorun 函数 ， 因 为 这 样 代 码 更 加 易 
Teo 同时 代码 效率 也 更 高 ， 因 为 dorun 内 部 使 用 map 又 创建 了 另外 一 个 序列 。 比 如 
下 面 的 两 会 的 结果 是 一 样 的 。 


(dorun (map Z(println %) [1 2 3])) 
(doseq [i [1 2 3]] (println i)) 
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么 大 多 数 情况 下 我 们 应 该 使 用 doall 来 调用 并 且 返 回 它 的 结果 。 这 使 得 副作用 的 
出 现时 间 更 容 多 确定。 否则 的 话 别 的 调用 者 可 能 会 调用 这 个 LazySegq 多 次 ， 那 么 副 

作用 也 就 会 出 现 多 次 -- 从 而 可 能 出 现 错误 的 结果 。 


下 面 的 几 个 表达 式 都 会 在 不 同 的 行 输出 1, 2, 3, 但 是 它们 的 返回 值 是 不 一 样 的 。 
do special form 是 用 来 实现 一 个 匿名 函数 ， 这 个 函数 先 打 印 这 个 值 ， 然 后 再 把 这 
个 值 返 回 。 


(doseq [item [1 2 3]] (println item)) ; -> nil 
(dorun (map Z(println %) [1 2 3])) ; -> nil 
(doall (map #(do (println %) %) [1 2 3])) ; -> (12 3) 


LazySeq 使 得 创建 无 限 序列 成 为 可 能 。 因 为 只 有 需要 使 用 的 数据 才 会 在 用 到 的 时 候 
被 调用 创建 。 比 如 


(defn f 
"square the argument and divide by 2" 
[x] 
(println "calculating f of" x) 
(uL ise core AE 


; Create an infinite sequence of results from the function f 
; for the values 0 through infinity. 

; Note that the head of this sequence is being held in the binding 
; This will cause the values of all evaluated items to be cached. 
(def f-seq (map f (iterate inc 0))) 


; Force evaluation of the first item in the infinite sequence, (f ( 
(printin "first is" (first f-seq)) ; -> 0.0 


; Force evaluation of the first three items in the infinite sequen 
; Since the (f 0) has already been evaluated, 

; only (f 1) and (f 2) will be evaluated. 

(doall (take 3 f-seq)) 


(println (nth f-seq 2)) ; uses cached result -» 2.0 
VETES ÀJ 
下 面 的 代码 和 上 面 的 代码 不 一 样 的 地 方 是 ， 在 下 面 的 代码 里 面 LazySeq 的 头 没有 被 


保持 在 一 个 binding 里 面 ， 所 以 被 调用 过 的 方法 的 返回 值 不 会 被 缓存 。 所 以 它 所 需 
要 的 内 存 比 较 少 ， 但 是 如 果 同 一 个 元 素 被 请 求 多 次 ， 那 么 它 的 效率 会 低 一 点 。 





(defn f-seq [] (map f (iterate inc 0))) 
(println (first (f-seq))) ; evaluates (f 0), but doesn't cache rest 
(println (nth (f-seq) 2)) ; evaluates (f 0), (f 1) and (f 2) 





另外 一 种 避免 保持 LazySeq 的 头 的 办 法 是 把 这 个 LazySeq 直 接 传 给 函数 : 


(defn consumer [seq] 
; Since seq is a local binding, the evaluated items in it 
; are cached while in this function and then garbage collected. 
(println (first seq)) ; evaluates (f 0) 
(println (nth seq 2))) ; evaluates (f 1) and (f 2) 


(consumer (map f (iterate inc 0))) 
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输入 /输出 


Clojure 提 供 了 很 少 的 方法 来 进行 输入 /输出 的 操作 。 因 为 我 们 在 Clojure 代 码 里 面 可 
以 很 轻松 的 使 用 java 里 面 的 MO 操作 方法 。 但 是 ?clojure.java.io 库 使 得 使 用 java 的 I/O 
方法 更 加 简单 。 

这 些 预定 义 的 Special symbols *in* , *out* 以 及 *err* 默认 被 设 定 成 stdin， 
stdout 以 及 stderr 。 如 果 要 flush *out* ,里 面 的 输出 ， 使 用 (flush) 方法 ， 效 
果 和 (.flush *out*) 一 样 。 当 然 这 些 symbol 的 binding 是 可 以 改变 的 。 比 如 你 
可 以 把 输出 重 定向 到 " my.log "文件 里 面 去 。 看 下 面 的 例子 : 


(binding [*out* (java.io.Filewriter. "my.log")] 
(println "This goes to the file my.log.") 
(flush)) 
print 可 以 打印 任何 对 象 的 字符 串 表 示 到 Out， 并 且 在 两 个 对 象 之 问 加 一 个 空 
格 。 


println 4&4 print 类 似 ， 但 是 它 会 在 最 后 加 一 个 newline 符 号 。 默 认 的 话 
它 还 会 有 一 个 flush 的 动作 。 这 个 默认 动作 可 以 通过 把 special symbol 
*flush-on-newline* 设 成 false 来 取消 掉 。 


newline 函数 写 一 个 newline 符 号 *out* 流 里 面 去 。 在 调用 print 有 函数 后 面 
手动 调用 newline 和 直接 调用 println 的 效果 是 一 样 的 。 


pr 与 prn 是 和 print 与 println 想 对 应 的 一 对 函数 , 但 是 他 们 输出 的 形 
式 可 以 被 Clojure reader 去 读 取 。 它 们 对 于 把 Clojure 的 对 象 进 行 序列 化 的 时 候 比 较 
有 用 。 上 默认 情况 下 它们 不 会 打印 数据 的 元 数据 。 可 以 通过 把 special symbol 

*print-meta* 设置 成 true 来 调整 这 个 行为 。 


下 面 的 例子 演示 了 我 们 提 到 的 四 个 打印 方法 。 注 意 使 用 print 和 pr 输出 的 字符 串 的 不 
同 之 处 。 


(let [obj1 "foo" 
0bj2 {:letter Na :number (Math/PI)}] ; a map 
(println "Output from print:") 
(print obji obj2) 


(println "Output from println:") 
(println obj1 obj2) 


(println "Output from pr:") 
(pr obj1 obj2) 


(println "Output from prn:") 
(prn obj1 obj2)) 


上 面 代 码 的 输出 是 这 样 的 : 


Output from print: 

foo {:letter a, :number 3.141592653589793}Output from println: 
foo {:letter a, :number 3.141592653589793} 

Output from pr: 

"foo" {:letter \a, :number 3.141592653589793}Output from prn: 
"foo" {:letter Na, :number 3.141592653589793} 


所 有 上 面 讨论 的 几 个 打印 函数 都 会 在 它们 的 参数 之 间 加 一 个 空格 。 你 可 以 通过 
str 函数 来 预先 组 装 好 要 打印 的 字符 串 来 避免 这 个 行为 ， 看 下 面 例子 : 


(println "foo" 19) ; -> foo 19 
(println (str "foo" 19)) ; -> fooi9 


print-str , pràntlIn-str , pr-str 以 及 prn-str 42 print , 
println , pr 3& prn 类 似 ,只 是 它们 返回 一 个 字符 串 ， 而 不 是 把 他 们 打印 出 


printf a4 print 类 似 。 但 是 它 接 受 一 个 format 字 符 串 。 format WA 
和 printf , 类似， 只 是 它 是 返回 一 个 字符 串 而 不 是 打印 出 来 。 


ZX with-out-str 把 它 的 方法 体 里 面 的 所 有 输出 汇总 到 一 个 字符 串 里 面 并 且 返 
uo 


with-open 可 以 自动 关闭 所 关联 的 连接 《〈.close) 方 法 ， 这 对 于 那 种 像 文 件 啊 ， 数 
据 库 连接 啊 ， 比 较 有 用 ， 它 有 点 像 C# 里 面 的 using 语句。 


line-seq 接受 一 个 java.io.BufferedReader 参数 ， 并 且 返 回 一 个 LazySeq， 
这 个 LazySeq 包 含 所 有 的 一 行 一 行 由 BufferedReader 读 出 的 文本 。 返 回 一 个 
LazySeq 的 好 处 在 于 ， 它 不 用 马上 读 出 文件 的 所 有 的 内 容 ， 这 会 占用 太 大 的 内 存 。 
相反 ， 它 只 需要 在 需要 使 用 的 时 候 每 次 读 一 行 出 来 即 可 。 


下 面 的 例子 演示 了 with-open 和 line-seq 的 用 法 。 它 读 出 一 个 文件 里 面 所 
有 的 行 ， 并 且 打 印 出 包含 某 个 关键 字 的 那些 行 。 


(use '1) 


(defn print-if-contains [line word] 
(when (.contains line word) (println line))) 


(let [file "story.txt" 
word "fur"] 


; with-open will close the reader after 
; evaluating all the expressions in its body. 
(with-open [rdr (reader file)] 
(doseq [line (line-seq rdr)] (print-if-contains line word)))) 


FFE" 


slurp 坊 数 把 一 个 文件 里 面 的 所 有 的 内 容 读 进 一 个 字符 囊 里 面 并 且 返 回 。 
spit 把 一 个 字符 串 写 进 一 个 文件 里 面 然后 关闭 这 个 文件 。 


这 篇 文章 只 是 大 概 过 了 一 下 clojure 的 io 里 面 提供 了 哪些 函数 来 进行 JO 操 作 。 大 家 可 
以 看 下 clojure 源 文件 : clojure/java/io.clj 以 了 解 其 它 一 些 函 数 。 


解构 


解构 可 以 用 在 一 个 函数 或 者 宏 的 参数 里 面 来 把 一 个 集合 里 面 的 一 个 或 者 几 个 元 素 抽 
取 到 一 些 本 地 binding 里 面 去 。 它 可 以 用 在 由 let specialform 或 者 binding 
宏 所 创建 的 binding 里 面 。 


比如 ， 如 果 我 们 有 一 个 vector 或 者 一 个 list ， 我 们 想 要 获取 这 个 集合 里 面 的 第 一 个 元 
素 和 第 三 个 元 素 的 和 。 那 么 可 以 用 下 面 两 种 办 法 ， 第 二 种 解构 的 方法 看 起 来 要 简单 


一 点 o 
ayn 


(defn approachi [numbers] 
(let [ni (first numbers) 
n3 (nth numbers 2)] 
(* ni n3))) 


; Note the underscore used to represent the 
; Second item in the collection which isn't used. 
(defn approach2 [[n1 _ n3]] (+ n1 n3)) 


(approachi [4 5 6 7 


]) -> 10 
(approach2 [4 5 6 7]) 


“aes 


& 符 合 可 以 在 解构 里 面 用 来 获取 集合 里 面 剩 下 的 元 素 。 比 如 : 
(defn name-summary [[namei name2 & others] ] 
(println (str namei ", " name2) "and" (count others) "others") ) 
(name-summary ["Moe" "Larry" "Curly" "Shemp"]) ; -> Moe, Larry and 
sj = Es 
:as 关键 字 可 以 用 来 获取 对 于 整个 被 解构 的 集合 的 访问 。 如 果 我 们 想 要 一 个 函数 


接受 一 个 集合 作为 参数 ， 然 后 要 计算 它 的 第 一 个 元 素 与 第 三 个 元 素 的 和 占 总 和 的 比 
例 ， 看 下 面 的 代码 : 





(defn first-and-third-percentage [[ni _ n3 :as coll]] 
(/ (+ ni n3) (apply + coll))) 


(first-and-third-percentage [4 5 6 7]) ; ratio reduced from 10/22 . 
m med = e] 
解构 也 可 以 用 来 从 map 里 面 获 取 元 素 。 假 设 我 们 有 一 个 map 这 个 map 的 key 是 月 份 ， 


Value 对 应 的 是 这 个 月 的 销售 额 。 那 么 我 们 可 以 写 一 个 函数 来 计算 夏季 的 总 销售 额 占 
全 年 销售 额 的 比例 : 





(defn summer-sales-percentage 
; The keywords below indicate the keys whose values 
; should be extracted by destructuring. 
; The non-keywords are the local bindings 
; into which the values are placed. 
[{june :june july :july august :august :as all}] 
(let [summer-sales (+ june july august) 
all-sales (apply + (vals all))] 
(/ summer-sales all-sales))) 


(def sales ( 
: January 100 :february 200 :march © :april 300 
:may 200 :june 100 :july 400 :august 500 
:september 200 :october 300 :november 400 :december 600}) 


(summer-sales-percentage sales) ; ratio reduced from 1000/3300 -> : 
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我 们 一 般 使 用 和 map 里 面 key 的 名 字 一 样 的 本 地 变量 来 对 map 进 行 解构 ， 比 如 上 面 
例子 里 面 我 们 使 用 的 {june :june july :july august :august :as all) 
这 个 可 以 使 用 :keys 来 简化 。 比 如 ，f{:keys [june july august] :as all} 


命名 空间 


Java 用 class 来 组 织 方法 ， 用 包 来 组 织 class。Clojure 用 名 字 空 间 来 组 织 事物 。* 事 
物 " 包 括 Vars, Refs, Atoms, Agents, 函数 , 宏 以 及 名 字 空 间 本 身 。 


符号 (Symbols) 是 用 来 给 函数 、 宏 以 及 binding 来 分 配 名 字 的 。 符 号 被 划分 到 名 字 空 
HERAT o 任何 时 候 总 有 一 个 默认 的 名 字 空 间 ， 初 始 化 的 时 候 这 个 默认 的 名 字 空 
间 是 “user， 这 个 默认 的 名 字 空 间 的 值 被 保存 在 特殊 符号 *ns* .里 面 。 默 认 的 名 
字 空 间 可 以 通过 两 种 方法 来 改变 。 in-ns 函数 只 是 改变 它 而 已 . ns EO 
得 更 多 。 其 中 一 件 就 是 它 会 使 得 clojure.core 名 字 空 间 里 面 的 符号 在 新 的 名 字 
空间 里 面 都 可 见 (使 用 refer TA) ns 宏 的 其 它 一 些 特性 我 们 会 在 后 面 介绍 。 


"user" 这 个 名 字 空 间 提供 对 于 clojure.core 这 个 名 字 空 间 里 面 所 有 符号 的 访 
问 。 同 样 道理 对 于 那些 通过 ns 宏 来 改变 成 默认 名 字 空 间 的 名 字 空 间 里 面 也 是 可 
以 看 到 clojure.core 里 面 的 所 有 的 函数 的 。 

如 果 要 访问 哪些 不 在 默认 名 字 空 间 里 面 的 符号 、 函 数 ， 那 么 你 必须 要 指定 全 限定 的 
完整 名 字 。 比 如 clojure.string 包 里 面 定义 了 一 个 join 函数 。 它 把 多 个 字符 串 用 
一 个 分 隔 符 隔 开 然 后 连 起 来 ， 返 回 这 个 连 起 来 的 字符 串 。 它 的 全 限定 名 是 
clojure.string/join 


require 函数 可 以 加 载 Clojure 库 。 它 接受 一 个 或 者 多 一 个 名 字 空 间 的 名 字 ( 注 意 
前 面 的 单 引 号 ) 


(require 'clojure.string) 


这 个 只 会 加 载 这 个 类 库 。 这 里 面 的 名 字 还 必须 是 一 个 全 限定 的 报名 ， 包 名 之 问 用 . 
分 割 。 注 意 ，clojure 里 面 名 字 空 间 和 方法 名 之 间 的 分 隔 符 是 /而 不 是 java 里 面 使 用 的 . 


(clojure.string/join "$" [1 2 3]) ; -> "1$2$3" 


alias 函数 给 一 个 名 字 空 间 指 定 一 个 别名 以 减少 我 们 打字 工作 。 当 然 这 个 别名 的 
定义 只 在 当前 的 名 字 空 间 里 面 有 效 。 比 如 : 


(alias 'su 'clojure.string) 
(suom DT 2 30905225 5195293U 
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么 你 访问 的 时 候 还 是 要 制定 名 字 空 间 的 。 看 例子 : 


(refer 'clojure.string) 
现在 ， 上 面 的 代码 可 以 写成 。 
(join "$" [1 2 3]) ; -> "1$2$3" 


我 们 通常 把 require 和 refer 结合 使 用 , 所 以 clojure 提 供 了 一 个 use * € 
相当 于 require 和 refer 的 简洁 形式 。 


(use 'clojure.string) 


ns 宏 ， ee 间 。 我 们 通常 在 一 个 源 代码 的 最 上 面 指定 这 


个 。 它 支持 这 些 指令 : require , :use 和 ;import (用 来 加 载 Java 类 的 ) 
这 些 其 实 是 它们 对 应 的 函数 的 另外 一 E vis uoi 3x 35 48 Si S ZAR f 
dto 在 下 面 的 例子 里 面 注意 :as - nm 间 创 建 了 一 个 别名 。 同 时 注意 使 用 


:only 指令 来 加 载 Clojure 库 的 一 部 分 


(ns com.ociweb.demo 
(:require 1) 
; assumes this dependency: [org.clojure/math.numeric-tower "0.0.: 
(:use 1) 
(:import (java.text NumberFormat) (javax.swing JFrame JLabel))) 


(println (su/join "$" [12 3])) ; -> 1$2$3 

(println (gcd 27 72)) ; -> 9 

(println (sqrt 5)) ; -» 2.23606797749979 

(println (.format (NumberFormat/getiInstance) Math/PI)) ; -> 3.142 


; See the screenshot that follows this code. 
(<a name="doto">doto</a> (JFrame. "Hello") 
(.add (JLabel. "Hello, World!")) 
(.pack) 
(.setDefaultCloseOperation JFrame/EXIT ON CLOSE) 
(.setVisible true)) 





€» O O Hello 
Hello, World! 


create-ns 函数 可 以 创建 一 个 新 的 名 字 空 间 。 但 是 不 会 把 它 变 成 默认 的 名 字 空 
lo def 在 当前 名 字 定 义 一 个 符号 ， 你 同时 还 可 以 给 它 一 个 初始 值 。 intern 
函数 在 一 个 指定 名 字 空 间 里 面 定 义 一 个 符号 (如 果 这 个 符号 不 存在 的 话 ) ， 同 时 还 可 
以 给 它 指定 一 个 默认 值 。 注 意 在 intern 里 面 符号 的 名 字 要 括 起 来 ， 但 是 在 

def 里 面 不 需要 。 这 是 因为 def 是 一 个 special form, special form 不 会 
evaluate 它 的 参数 , 而 intern 是 一 个 函数 ， 它 会 evaluate 它 的 参数 。 看 例子 : 


(def foo 1) 

(create-ns 'com.ociweb.demo) 

(intern 'com.ociweb.demo 'foo 2) 

(println (+ foo com.ociweb.demo/foo)) ; -> 3 


ns-interns 遂 数 返回 一 个 指定 的 名 字 空 间 的 所 有 的 符号 的 map( 这 个 名 字 空 间 一 
定 要 在 当前 名 字 空 间 里 面 加载 了 ), 这 个 map 的 key 是 符号 的 名 字 ，value 是 符号 所 对 
应 的 Var 对 和 象 ， 这 个 对 和 象 表示 的 可 能 是 函数 ， 宏 或 者 binding。 比如 : 


(ns-interns 'clojure.math.numeric-tower) 


all-ns Zik wp— 4-68, 3:4 Pp 89 CAPRI 89/5 p E B] 89 dE o F Mike 
名 字 空 间 是 默认 加 载 的 : clojure.core , clojure.main , clojure.set , 
clojure.xml , clojure.zip 以 及 user .而 如 果 是 在 用 REPL 的 话 ， 那 么 下 


面 这 些 名 字 空 间 也 会 被 加 载 : clojure.repl 和 clojure.java.javadoc 
namespace 了 有 子 数 返回 一 个 给 定 符号 或 者 关键 字 的 名 字 空 间 。 

其 它 一 些 在 这 里 没有 讨论 的 名 字 空 间 相 关 的 函数 还 包括 ns-aliases , 
ns-imports , ns-map , ns-name , ns-publics , ns-refers , 
ns-unalias , ns-unmap 和 remove-ns 


Some Fine Print 


Symbol 对 象 有 一 个 String 类 型 的 名 字 以 及 一 个 string 类 型 的 名 字 空 间 名 
字 ( 叫 做 ns ) 但 是 没有 值 。 它 使 用 一 个 字符 串 的 名 字 空 间 而 不 是 一 个 名 字 空 间 对 
象 使 得 它 可 以 指向 一 个 还 不 存在 的 名 字 空 间 。 Var 对 象 有 一 个 执行 Symbol 对 
象 的 引用 (叫做 sym ), 一 个 指向 Namespace 对 象 的 引用 (叫做 ns ) 以 及 一 个 
Object 类 型 的 对 象 (也 就 是 它 的 root value, 叫做 root ). Namespace 对 象 
bjects 有 一 个 指向 Map 的 引用 ， 这 个 map 维 护 Symbol 对 象 和 var 对 象 的 对 
应 关系 (叫做 mappings )。 同 时 它 还 有 一 个 map 来 维护 Symbol 别名 和 
Namespace 对 象 之 间 的 关系 (叫做 namespaces ). 下 面 这 个 类 图 显示 了 Java 里 
面 的 类 和 接口 在 Clojure 里 面 的 实现 。 在 Clojure 里 面 "interning" 这 个 单词 一 般 指 的 
是 添加 一 个 Symbol 到 Var 的 对 应 关系 到 一 个 Namespace 里 面 去 。 

















元 数据 


Clojure 里 面 的 元 数据 是 附加 到 一 个 符号 或 者 集合 的 一 些 数据 ， 它 们 和 符号 或 者 集合 
的 逻辑 数据 没有 直接 的 关系 。 两 个 逻辑 上 一 样 的 方法 可 以 有 不 同 的 元 数据 。 下 面 是 
一 个 有 关 扑 克 牌 的 例子 


(defstruct card-struct :rank :suit) 


(def cardi (struct card-struct :king :club)) 
(def card2 (struct card-struct :king :club)) 


(println (-- cardi card2)) ; same identity? -» false 
(println (- cardi card2)) ; same value? -» true 


(def card2 #4{:bent true} card2) ; adds metadata at read-time 

(def card2 (with-meta card2 {:bent true})) ; adds metadata at run-1 
(println (meta card1)) ; -> nil 

(println (meta card2)) ; -> {:bent true} 

(println (= cardi card2)) ; still same value despite metadata diff 


E E SS SSS 


一 些 元 数据 是 Clojure 内 部 定义 的 。 比 如 :private 它 表 示 一 个 Var 是 否 能 被 包 外 
的 函数 访问 。 :doc 是 一 个 Var 的 文档 字符 串 。 itest 元 数据 是 一 个 Boolean 
值 表示 这 个 函数 是 否 是 一 个 测试 函数 。 


Stag 是 一 个 字符 囊 类 型 的 类 名 或 者 一 个 Class 对 象 ， 表 示 一 个 Var 在 Java 里 面 
对 应 的 类 型 ， 或 者 一 个 函数 的 返回 值 。 这 些 被 称 为 “类 型 提示 ”。 提 供 这 些 可 以 提高 
代码 性 能 。 如 果 你 想 查 看 你 的 clojure 代 码 里 面 哪里 使 用 反射 来 决定 类 型 信息 -- 也 就 
是 说 这 里 可 能 会 有 性 能 的 问题 ， 那 么 你 可 以 设置 全 局 变量 

*warn-on-reflection* 为 true 。 





一 些 元 数据 会 由 Clojure 的 编译 器 自动 地 绑 定 到 Var 对 象 。 :file 是 定义 这 个 Var 
的 文件 的 名 字 。 :line 是 定义 这 个 Var 的 行 数 。 :name 是 一 个 Var 的 名 字 的 
Symbol 对 象 。 :ns 是 一 个 Namespace 对 象 描述 这 个 Var 所 在 的 名 字 空 间 。 
:macro 是 一 个 标识 符 标 识 这 个 符号 是 不 是 一 个 宏 。 :arglist 是 一 个 装 有 一 
堆 vector 的 一 个 list， 表 示 一 个 函数 所 接受 的 所 有 的 参数 列表 (前 面 在 介绍 函数 的 时 
候 说 过 一 个 函数 可 以 接受 多 个 参数 列表 )。 


函数 以 及 宏 ， 都 是 有 一 个 Var 对 象 来 表示 的 , 它们 都 有 关联 的 元 数据 。 比 如 输入 
这 个 在 REPL 里 面 : (meta (var reverse)) 或 者 A#'reverse 。 输 出 结果 应 
该 下 面 这 些 类 似 (为 了 好 看 我 加 了 换行 缩 进 ) 


:ns Z«Namespace clojure.core>, 

:name reverse, 

‘file "core.clj", 

:line 630, 

:arglists ([coll]), 

:doc "Returns a seq of the items in coll in reverse order. Not li 


} 
E = 


clojure.repl & € aa source 函数 ， 利 用 元 数据 来 获取 一 个 指定 函数 的 源 代 码 ， 
比如 : 








(Source reverse) 


上 面 代码 的 输出 应 该 是 : 


(defn reverse 
"Returns a seq of the items in coll in reverse order. Not lazy." 
[coll] 
(reduce conj nil coll)) 
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宏 是 用 来 给 语言 添加 新 的 结构 ， 新 的 元 素 的 。 它 们 是 一 些 在 读 入 期 (而 不 是 编译 
期 ) 就 会 实际 代码 替换 的 一 个 机 制 。 


对 于 函数 来 说 ， 它 们 的 所 有 的 参数 都 会 被 evaluate 的 , 而 宏 则 会 自动 判断 哪些 参数 需 
要 evaluate。 这 对 于 实现 像 (if _condition_ _then-expr_ _else-expr_) 这 
样 的 结构 是 非常 重要 的 。 如果 condition 是 true ,那么 只 有 "then" 表达 式 需 要 被 
evaluated. 如 果 条 件 是 false ,那么 只 有 "else" 表达 式 应 该 被 evaluated. 这 意味 
着 if 不 能 被 实现 成 一 个 函数 ( 它 其 实 也 不 是 宏 ， 而 是 一 个 special form)。 其 它 一 
些 因为 这 个 原因 而 必须 要 实现 成 宏 的 包括 and 和 or 因为 它们 需要 实现 "short- 
Circuit" 属 性 。 


要 想 知 道 一 个 东西 到 底 是 函数 还 是 宏 ， 可 以 在 REPL 里 面 输入 (doc name ) X 
者 查看 它 的 元 数据 。 如 果 是 一 个 宏 的 话 ， 那 么 它 的 元 数据 里 面包 含 一 个 :macro 
key， 并 且 它 的 值 为 true ° 比如 ， 我 们 要 看 看 and ,是 不 是 宏 ， 在 REPL 里 
面 输入 下 面 的 命令 : 


((meta (var and)) :macro) ; long way -> true 
(^£'and :macro) ; short way -> true 


让 我 们 通过 一 些 例子 来 看 看 如 何 编写 并 且 使 用 宏 。 假 设 我 们 代码 里 面 很 多 地 方 要 对 
一 个 数字 进行 判断 ， 通 过 判断 它 是 接近 0， 是 正 的 ， 是 负 的 来 执行 不 同 的 逻辑 ; 我 
们 又 不 想 这 种 判断 的 代码 到 处 重复 ， 那 么 这 种 情况 下 我 们 就 可 以 使 用 宏 了 。 我 们 使 
用 defmacro 宏 来 定义 一 个 宏 。 


(defmacro around-zero [number negative-expr zero-expr positive-exp! 
"(let [number# -number] ; so number is only evaluated once 
(cond 
(< (Math/abs number#) 1e-15) -zero-expr 
(pos? number#) -positive-expr 
true -negative-expr))) 


Hn ——————————————— Ád4cc—Á] 


Clojure 的 reader 会 把 所 有 调用 around-aero 的 地 方 全 部 换 成 defmacro 这 个 方法 体 里 
面 的 具体 代码 。 我 们 在 这 里 使 用 let 是 为 了 性 能 ， 因 为 这 个 传 进来 的 number 是 一 个 
表达 式 而 不 是 一 个 简单 的 值 ， 而 且 被 cond 语 句 里面 使 用 了 两 次 。 自 动产 生 的 变量 
number# 是 为 了 产生 一 个 不 会 和 用 户 指定 的 其 它 binding 冲 突 的 一 个 名 字 。 这 使 得 我 
们 可 以 创建 hygienic macros . 

宏 定 义 开始 的 时 候 的 那个 反 引 号 (也 称 为 语法 引号 ) 防止 宏 体 内 的 任何 一 个 表达 式 被 


evaluate -- 除非 你 显示 地 转 义 了 。 这 意味 着 宏 体 里 面 的 代码 会 原封 不 动 地 替换 到 使 
用 这 个 宏 的 所 有 的 地 方 -- 除了 以 波浪 号 开始 的 那些 表达 式 。( number , 





zero-expr , positive-expr 和 negative-expr ). 当 一 个 名 字 前 面 被 加 了 
一 个 波浪 号 ， 并 且 还 在 反 引 号 里 面 ， 它 的 值 会 被 替换 的 。 如 果 这 个 名 字 代 表 的 是 一 
个 序列 ， 那 么 我 们 可 以 用 -Q 这 个 语法 来 替换 序列 里 面 的 某 个 具体 元 素 。 


下 面 是 两 个 使 用 这 个 宏 的 例子 : (输出 都 应 该 是 " + 站 


(around-zero 0.1 (println "-") (println "0") (println "+")) 
(println (around-zero 0.1 "-" "9g" "+")) ; same thing 


如 果 对 于 每 种 条 件 执行 多 于 一 个 表达 式 ， 那 么 用 do 把 他 们 包 起 来 。 看 下 面 例 子 : 


(around-zero 0.1 
(do (log "really cold!") (println "-")) 
(println "0") 
(println "+")) 


为 了 验证 这 个 宏 是 否 被 正确 展开 ， 在 REPL 里 面 输入 这 个 : 


(macroexpand-1 
'(around-zero 0.1 (println "-") (println "O") (println "+"))) 


它 会 输出 下 面 这 个 (为 了 容易 看 懂 ， 我 加 了 缩 进 ) 


(clojure.core/let [number 43382 auto 0.1] 
(clojure.core/cond 
(clojure.core/« (Math/abs number 3382 auto ) 1.0E-15) (print 
(clojure.core/pos? number 3382 auto ) (println "+") 
true (println "-"))) 














下 面 是 一 个 使 用 这 个 宏 来 返回 一 个 描述 输入 数字 的 属性 的 字符 串 的 函数 。 


(defn number-category [number] 
(around-zero number "negative" "zero" "positive")) 


(println (number-category -0.1)) ; -» negative 
(println (number-category 0)) ; -» zero 
(println (number-category 0.1)) ; -» positive 


因为 宏 不 会 evaluate 它们 的 参数 , 所 以 你 可 以 在 宏 体 里 面 写 一 个 对 函数 的 参数 调用 . 
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下 面 是 一 个 接受 两 个 参数 的 宏 。 第 一 个 是 一 个 接受 一 个 参数 的 函数 , 这 个 参数 是 一 
个 绢 度 ， 如 果 它 是 一 个 三 角 函 数 sin，cos。 第 二 个 参数 是 一 个 弧度 。 如 果 这 个 被 号 
成 一 个 函数 而 不 是 一 个 宏 的 话 ， 那 么 我 们 需要 传递 一 个 #(Math/sin %) 而 不 是 
简单 的 Math/sin 作为 参数 。 注 意 那些 后 面 的 # 符 号 ， 它 会 产生 一 个 唯一 的 、 不 
冲突 的 本 地 binding。 # 和 ~ 都 必须 在 反 引 号 引 着 的 列表 里 面 才能 使 用 。 


(defmacro trig-y-category [fn degrees] 
"(let [radians# (Math/toRadians -degrees) 
result# (-fn radians#) ] 
(number-category result#) )) 


让 我 们 斌 一下。 下 面 代码 的 期 望 输出 应 该 是 "zero", "positive", "zero" fe "negative". 


(doseq [angle (range 0 360 90)] ; 0, 90, 180 and 270 
(println (trig-y-category Math/sin angle))) 


宏 的 名 字 不 能 作为 参数 传递 给 函数 。 上 比如 一 个 宏 的 名 字 比 如 and 不 能 作为 参数 传 
递 给 reduce 郊 数 。 一 个 绕 过 的 方法 是 定义 一 个 匿名 函数 把 这 个 宏 包 起 来 。 比 如 
(fn [x y] (and x y)) 或 者 #(and %1 %2) . 宏 会 在 这 个 读 入 期 在 这 个 匿名 
函数 体内 解 开 。 当 这 个 函数 被 传递 给 函数 比如 reduce ,传递 的 是 函数 而 不 是 宏 。 


宏 的 调用 是 在 读 入 期 处 理 的 。 


并 发 
Wikipedia 上 面 对 于 并 发 有 个 很 精准 的 定义 : 


"Concurrency is a property of systems in which several computations are 
executing and overlapping in time, and potentially interacting with each other The 
overlapping computations may be executing on multiple cores in the same chip, 
preemptively time-shared threads on the same processor, or executed on 
physically separated processors." 


并 发 编程 的 主要 挑战 就 在 于 管理 对 于 共享 的 、 可 修改 的 状态 的 修改 。 


通过 人 锁 来 对 并 发 进行 管理 是 非常 难 的 。 我 们 需要 决定 哪些 对 象 需要 加 锁 以 及 什么 时 
候 加 锁 。 这 还 不 算 完 ， 每 次 你 修改 代码 或 者 添加 新 的 代码 的 时 候 你 都 要 重新 审视 下 
你 的 这 些 决 定 。 如 果 一 个 开发 人 员 忘 记 了 去 锁 一 个 应 该 加 锁 的 对 象 ， 或 者 锁 的 时 机 
不 对 ， 一 些 非常 糟糕 的 事情 就 会 发 生 了 。 这 些 糟糕 的 事情 包括 死 锁 和 GER ARE ; 
另 一 个 方面 如 果 你 锁 了 一 个 不 需要 锁 的 对 象 ， 那 么 你 的 系统 的 性 能 则 会 下 降 。 


为 了 更 好 地 进行 并 发 编程 是 很 多 开发 人 员 选 择 Clojure 的 原因 。Clojure 的 所 有 的 数据 
都 是 只 读 的 ， 除 非 你 显示 的 用 Var Ref ,Atom 和 Agent 来 标明 它们 是 可 以 修改 的 。 这 
些 提 供 了 安全 的 方法 去 管理 共享 状态 ， 我 们 会 在 下 一 节 :“ 引 用 类 型 "里 面 更 加 详细 
地 介绍 o 
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用 一 个 新 线程 来 运行 一 个 Clojure 函 数 是 非常 简单 的 ， 不 管 它 是 内 置 的 ， 还 是 自 定 义 
的 ， 不 管 它 是 有 名 的 还 是 匿名 的 。 关 于 这 个 更 详细 的 可 以 看 上 面 有 关 和 Java 的 互 操 
作 的 讨论 。 


因为 Clojure 代 码 可 以 使 用 java 里 面 的 所 有 的 类 和 接口 ， 所 以 它 可 以 使 用 Java 的 并 发 
能 力 。Java 领 域 一 个 很 棒 的 有 关 java 并 发 编程 的 书 : "Java Concurrency In 
Practice ". 这 本 书 里 面 讲 到 了 很 多 java 里 面 如果 做 好 并 发 编程 的 一 些 建议 。 但 是 要 
做 到 这 些 建议 并 不 是 一 件 很 轻松 的 事情 。 在 大 多 数 情 况 下 ， 使 用 java 的 引用 类 型 比 
使 用 java 里 面 并 发 要 更 简单 。 


除了 引用 类 型 ，Clojure 还 提供 了 其 它 一 些 函数 来 使 你 的 并 发 编程 更 简单 。 


future 宏 把 它 的 body 里 面 的 表达 式 在 另外 一 个 线程 里 面 执行 (这 个 线程 来 自 于 

CachedThreadPool ，Agents( 后 面 会 介绍 ) 用 的 也 是 这 个 ). 这 个 对 于 那 种 运行 时 
间 比 较 长 ， 而 且 一 下 子 也 不 需要 运行 结果 的 程序 来 说 比较 有 用 。 你 可 以 通过 
dereferencing 从 future . 放 回 的 对 象 来 得 到 返回 值 。 如 果 计 算 已 经 结束 了 ， 那 
么 立马 返回 那个 值 ; 如 果 计 算 还 没有 结束 ， 那 么 当前 线程 会 block 住 ， 直 到 计算 结束 
返回 。 因 为 这 里 使 用 了 一 个 来 自 Agent 线 程 池 的 线程 , 所 以 我 们 要 在 一 个 适当 的 时 机 
调用 shutdown-agents 关闭 这 些 线程 ， 然 后 程序 才能 退出 。 


为 了 演示 future 的 用 法 ， 我 们 加 了 一 些 println 的 方法 调用 ， 它 能 帮助 我 们 观察 
方法 执行 的 状态 ， 注 意 输 出 的 消息 的 顺序 。 


(println "creating future") 

(def my-future (future (f-prime 2))) ; f-prime is called in anothe! 
(println "created future") 

(println "result is" Qmy-future) 

( shutdown-agents) 
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如 果  f-prime 是 一 个 比较 耗 时 的 方法 的 话 , 那么 输出 应 该 是 这 样 的 : 


creating future 
created future 
derivative entered 
result is 9.0 


pmap 函数 把 一 个 函数 作用 到 一 个 集合 里 面 的 所 有 的 元 素 ， 和 map 不 一 样 的 是 这 
个 过 程 是 完全 并 行 的 ， 所 以 如 果 你 要 调用 的 这 个 函数 是 非常 耗 时 间 的 话 ， 那 么 使 
用 pmap 将 比 使 用 


clojure.parallel 名 字 空 间 里 买 你 有 好 多 方法 可 以 帮助 你 并 行 化 你 的 代码 , 他 
们 包括 : par , pdistinct , pfilter-dupes , pfilter-nils , pmax , 
pmin , preduce , psort , psummary 和 pvec 


引用 类 型 


引用 类 型 是 一 种 可 变 引 用 指向 不 可 变数 据 的 一 种 机 制 。Clojure 里 面 有 4 种 引用 类 
型 :Vars,Refs,Atoms 和 Agents. 它们 有 一 些 共 同 的 特征 : 


e 它们 都 可 以 指向 任意 类 型 的 对 象 。 

e 都 可 以 利用 函数 deref URE @ 来 读 取 它 所 指向 的 对 象 。 

e 它们 都 支持 验证 函数 ， 这 些 函 数 在 它们 所 指向 的 值 发 生变 化 的 时 候 自动 调用 。 
如 果 新 值 是 合法 的 值 ， 那 么 验证 函数 简单 的 返回 true, 如 果 新 值 是 不 合法 的 ， 那 
么 要 么 返回 false ， 要 么 抛 出 一 个 异常 。 如 果 只 是 简单 地 返回 了 false , PA 
一 个 IllegalStateException 弄 常 会 被 抛 出 ， 并 且 带 着 提示 信息 : "Invalid 
reference state" » 

e 如 果 是 Agents 的 话 ， 它 们 还 支持 watchers。 如 果 被 监听 的 引用 的 值 发 生 了 变 
化 ， 那 么 Agent 会 得 到 通知 ， 详 情 见 "Agents" 一 节 。 


下 面 的 这 个 表格 总 结 了 一 下 四 种 引用 类 型 的 区 别 ， 以 及 分 别 要 用 什么 方法 去 创建 或 
者 修改 它们 。 这 个 表格 里 面 提 到 的 济 数 我 们 会 在 后 面 介绍 。 


Var 


同步 对 于 一 个 线程 本 地 (thread-local) 的 变量 的 修改 。 


(def name initial-value) 


改 (def name new-value) -可 以 赋 新 的 值 
(alter-var-root (var name) update-fn args) -自动 设置 新 值 
法 (set! name new-value) - 在 一 个 binding form 里 满 设 置 一 个 新 的 、 线 程 玫 


Vars 


Vars 是 一 种 可 以 有 一 个 被 所 有 线程 共享 的 root binding 并 且 每 个 线程 线程 还 能 有 自 
己 线程 本 地 (thread-local) 的 值 的 一 种 引用 类 型 。 


下 面 的 语法 创建 一 个 Var 并 且 给 它 一 个 root binding: 


(def <em>name</em> <em>value</em>) 


你 可 以 不 给 它 一 个 值 的 。 如 果 你 没有 给 它 一 个 值 ， 那么 我 们 说 这 个 Var 是 
"unbound". 同样 的 语法 可 以 用 来 修改 一 个 Var 的 root binding ° 


有 两 种 方法 可 以 创建 一 个 已 经 存在 的 Var 的 线程 本 地 binding(thread-local-binding): 


(binding [<em>name</em> <em>expression</em>] <em>body</em>) 
(set! <em>name</em> <em>expression</em>) ; inside a binding that bc 
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关于 binding 宏 的 用 法 我 们 前 面 已 经 介绍 过 了 . 下 面 的 例子 演示 把 它 和 set! 一 起 
使 用 . 用 set! 来 修改 一 个 由 binding bind 的 Var 的 线程 本 地 的 值 。 





(def v 1) 


(defn change-it [] 
(printin "2) v =" v) ; -> 1 


(def v 2) ; changes root value 
(println "3) v =" v) ; -> 2 


(binding [v 3] ; binds a thread-local value 
(println "4) v =" v) 5; -> 3 


(set! v 4) ; changes thread-local value 
(println "5) v =" v)) ; -> 4 


(println "6) v =" v)) ; thread-local value is gone now -> 2 
(println "1) v =" v) ; -> 1 
(let [thread (Thread. #(change-it) )] 

(.start thread) 


(.join thread)) ; wait for thread to finish 


(println "7) v =" v) ; -> 2 


我 们 一 般 不 鼓励 使 用 Vars ， 因 为 线程 之 间 对 于 同一 个 Var 的 修改 没有 做 很 好 的 协 
调 ， 比 如 线程 A 在 使 用 一 个 Var 的 root 值 ， 然 后 才 发 现 ， 在 它 使 用 这 个 值 的 时 候 ， 已 
经 有 一 个 线程 B 在 修改 这 个 值 了 。 


Refs 


Refs 是 用 来 协调 对 于 一 个 或 者 多 个 binding 的 并 发 修改 的 。 这 个 协调 机 制 是 利用 
Software Transactional Memory (STM) 来 实现 的 。 Refs 指 定 在 一 个 事务 里 面 修 
改 。 


STM 在 某 些 方面 跟 数 据 库 的 事务 很 像 。 在 一 个 STM 事务 里 面 做 的 修改 只 有 在 事务 提 
交 之 后 别 的 线程 才能 看 到 。 这 实现 了 ACID 里 面 的 A 和 |。Validation 函 数 是 的 对 Ref 的 
修改 与 跟 它 相关 的 其 它 的 值 是 一 致 的 (consistent), 也 就 实现 了 C。 


要 想 你 的 代码 在 一 个 事务 里 面 执 行 ? 那么 要 把 你 的 代码 包 在 安 dosync 的 体内 o 
当 在 一 个 事务 里 面 对 值 进行 修改 ， 被 改 的 其 实 是 一 个 私有 的 、 线 程 内 的 、 直 到 事务 
提交 才 会 被 别 的 线程 看 到 的 一 快 内 存 。 


如 果 到 事务 结束 的 时 候 也 没有 异常 抛 出 的 话 ， 那 么 这 个 事务 会 顺利 的 提交 ， 在 事 
务 里 面 所 作 的 改变 也 就 可 以 被 别 的 线程 看 到 了 。 


如 果 在 事务 里 面 有 一 个 异常 抛 出 ， 包 括 validation 亟 数 抛 出 的 蜡 常 ， 那 么 这 个 事务 会 
被 回 深 ， 事 务 里 面 对 值 做 的 修改 也 就 会 撤销 。 


如 果 在 一 个 事务 里 面 ， 我 们 要 对 一 个 Ref 进 行 修改 ， 但 是 发 现 从 我 们 的 事务 开始 之 
后 ， 已 经 有 别 的 线程 对 这 个 Ref 做 了 改动 (冲突 了 ) ， 那 么 当前 事务 里 面 的 改动 会 
被 撤销 ， 然 后 从 dosync 的 开头 重 试 。 那 到 底 什 么 时 候 会 检测 到 冲突 ， 什 么 时 候 会 
进行 重 试 ， 这 个 是 没有 保证 的 ， 唯 一 保证 的 是 clojure 为 检测 到 冲突 ， 并 且 会 进行 
ER o 


要 在 事务 里 面 执行 的 代码 一 定 要 是 没有 副作用 的 ， 这 一 点 非常 重要 ， 因 为 前 面 提 到 
的 ， 事 务 可 能 会 跟 别 的 事务 事务 冲突 ， 然 后 重 试 ， 如 果 有 副作用 的 话 ， 那 么 出 来 的 
结果 就 不 对 了 。 不 过 要 执行 有 副作用 的 代码 也 是 可 能 的 ， 可 以 把 这 个 方法 调用 包装 
Agent, 然后 这 个 方法 会 被 hold 住 直到 事务 成 功 提 交 ， 然 后 执行 一 次 。 如 果 事 务 失 
败 那么 就 不 会 执行 。 

ref 子 数 可 以 创建 一 个 Ref 对 象 。 下 面 的 例子 代码 创建 一 个 Ref 并 且 得 到 它 的 引 
用 。 


(def <em>name</em> (ref <em>value</em>) ) 


dosync 宏 用 来 包 庄 一 个 事务 -- 从 它 对 应 的 左 括号 开始 ， 到 它 对 应 的 右 括号 结 
束 。 在 事务 里 面 我 们 用 ref-set 来 改变 一 个 Ref 的 值 并 且 返 回 这 个 值 。 你 不 能 在 
事务 之 外 调用 这 个 函数 ， 否 则 会 抛 出 IllegalStateException Jt? » AAF : 


(dosync 


(ref-set <em>name</em> <em>new-value</em>) 


e) 


如 果 你 要 赋 的 新 值 是 基于 日 的 值 的 话 ， 那 么 就 需要 三 个 步骤 了 : 


1. deference 这 个 Ref 来 获得 它 的 昌 值 
2. 计算 新 值 
3. 设置 新 值 


alter 和 commute 函数 在 一 个 操作 里 面 完成 这 三 个 步 又。 alter BREA 
来 操作 那些 必须 以 特定 顺序 进行 的 修改 。 而 commute 有 函数 则 是 要 来 操作 那些 修改 
顺序 不 是 很 重要 -- 可 以 同时 进行 的 修改 。 跟 ref-set , 一样 ， 它 们 只 能 在 一 个 
事务 里 面 调用 。 它 们 都 接受 一 个 "Update HA" 做 为 参数 ， 以 及 一 些 额 外 的 参数 来 
计算 新 的 值 。 这 个 函数 会 被 传递 这 个 Ref 在 线程 内 的 当前 的 值 以 及 一 些 额 外 的 参数 
(如 果 有 的 话 ) 。 当 我 们 要 赋 的 新 的 值 是 基于 日 的 值 计 算出 来 的 时 候 , 那么 我 们 鼓 
励 使 用 alter 和 commute 而 不 是 ref-set 


比如 ， 我 们 想 给 一 个 Reft counter 加 一 ， 我 们 可 以 用 inc AXE: 


(dosync 


(alter counter inc) 
; or as 
(commute counter inc) 


-) 


如 果 alter 试图 修改 的 Ref 在 当前 事务 开始 之 后 被 别 的 事务 改变 了 ， 那 么 当前 
事务 会 进行 重 试 。 而 同样 的 情况 下 commute 不 会 进行 重 试 。 它 会 以 事务 内 的 当前 
值 进行 计算 。 这 会 获得 比较 好 的 性 能 (因为 不 进行 重 试 )。 但 是 要 记 住 的 是 

commute 哆 数 只 有 在 多 个 线程 对 Ref 的 修改 顺序 不 重要 的 时 候 才 能 使 用 。 
如 果 一 个 事务 提交 了 ， 那 么 对 于 commute 函数 还 会 有 一 些 额 外 的 事情 发 生 。 对 
于 每 一 个 commute 调用 , Ref 的 值 会 被 下 面 的 调用 结果 重 置 : 


(apply <em>update-function</em> <em>last -committed-value-of-ref</er 
本 


注意 ， 这 个 update-function 会 被 传递 这 个 Ref 最 后 被 提交 的 值 ， 这 个 值 可 能 是 另外 
一 个 、 在 我 们 当前 事务 开始 之 后 才 开 始 的 事务 。 

使 用 commute 而 不 是 alter 是 一 种 优化 。 只 要 对 Ref 进 行 更 新 的 顺序 不 会 影响 
到 这 个 Ref 的 最 终 的 值 。 


然后 看 一 个 使 用 了 Refs 和 Atoms (后 面 会 介绍 ) 的 例子 。 这 个 例子 涉及 到 银行 账户 
以 及 账户 之 间 的 交易 。 首 先 我 们 定义 一 下 数据 模型 。 





(ns com.ociweb.bank) 


; Assume the only account data that can change is its balance. 
(defstruct account-struct :id wner :balance-ref) 


We need to be able to add and delete accounts to and from a map. 
We want it to be sorted so we can easily 

find the highest account number 

for the purpose of assigning the next one. 

def account-map-ref (ref (sorted-map))) 


«| mmm 1 


下 面 的 函数 建立 一 个 新 的 帐户 ， 并 且 把 它 存 入 帐户 的 map, ? 然后 返回 它 。 


Ac o ~ ~ 





(defn open-account 

"creates a new account, stores it in the account map and returns 

[owner] 

(dosync ; required because a Ref is being changed 
(let [account-map @account-map-ref 
last-entry (last account-map) 
; The id for the new account is one higher than the last one. 
id (if last-entry (inc (key last-entry)) 1) 
; Create the new account with a zero starting balance. 
account (struct account-struct id owner (ref 0))] 

; Add the new account to the map of accounts. 

(alter account-map-ref assoc id account) 

; Return the account that was just created. 

account))) 
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下 面 的 函数 支持 从 一 个 账户 里 面 存 / 取 钱 。 


(defn deposit [account amount] 
"adds money to an account; can be a negative amount" 
(dosync ; required because a Ref is being changed 
(Thread/sleep 50) ; simulate a long-running operation 
(let [owner (account wner) 
balance-ref (account :balance-ref) 
type (if (pos? amount) "deposit" "withdraw") 
direction (if (pos? amount) "to" "from") 
abs-amount (Math/abs amount)] 
(if (>= (+ Qbalance-ref amount) ©) ; sufficient balance? 
(do 
(alter balance-ref + amount) 
(println (str type "ing") abs-amount direction owner)) 
(throw (IllegalArgumentException. 
(str "insufficient balance for " owner 
" to withdraw " abs-amount))))))) 


(defn withdraw 
"removes money from an account" 
[account amount] 
; A withdrawal is like a negative deposit. 
(deposit account (- amount))) 


下 面 是 函数 支持 把 钱 从 一 个 账户 转 到 另外 一 个 账户 。 由 dosyne 所 开始 的 事务 保 
证 转账 要 么 成 功 要 么 失败 ， 而 不 会 出 现 中 间 状 态 。 


(defn transfer [from-account to-account amount] 
(dosync 
(println "transferring" amount 
"from" (from-account wner) 
"to" (to-account wner)) 
(withdraw from-account amount) 
(deposit to-account amount))) 


下 面 的 函数 支持 查询 账户 的 状态 。 由 dosyne 所 开始 的 事务 保证 事务 之 间 的 一 臻 
性 。 比 如 把 不 会 报告 一 个 转账 了 一 半 的 金额 。 


(defn- report-1 ; a private function 
"prints information about a single account" 
[account] 
; This assumes it is being called from within 
; the transaction started in report. 
(let [balance-ref (account :balance-ref)] 
(println "balance for" (account wner) "is" Qbalance-ref))) 


(defn report 
"prints information about any number of accounts" 
[& accounts] 
(dosync (doseq [account accounts] (report-1 account)))) 


上 面 的 代码 没有 去 处 理 线 程 启动 时 候 可 能 抛 出 的 异常 。 相 反 ， 我 们 在 当前 线程 给 他 
们 定义 了 一 个 异常 处 理 器 。 


; Set a default uncaught exception handler 
; to handle exceptions not caught in other threads. 
(Thread/setDefaultUncaughtExceptionHandler 
(proxy [Thread$UncaughtExceptionHandler] [] 
(uncaughtException [thread throwable] 
; Just print the message in the exception. 
(println (.. throwable .getCause .getMessage))))) 


现在 我 们 可 以 调用 上 面 的 部 数 了 。 


(let [al (open-account "Mark") 
a2 (open-account "Tami") 
thread (Thread. #(transfer al a2 50))] 
(try 
(deposit a1 100) 
(deposit a2 200) 


; There are sufficient funds in Mark's account at this point 
to transfer $50 to Tami's account. 
(.start thread) ; will sleep in deposit function twice! 


-- 


Unfortunately, due to the time it takes to complete the transfe 
(simulated with sleep calls), the next call will complete first 
(withdraw a1 75) 


; Now there are insufficient funds in Mark's account 
; to complete the transfer. 


(.join thread) ; wait for thread to finish 
(report a1 a2) 

(catch IllegalArgumentException e 

(println (.getMessage e) "in main thread")))) 





上 面 代 码 的 输出 是 这 样 的 : 


depositing 100 to Mark 

depositing 200 to Tami 

transferring 50 from Mark to Tami 
withdrawing 75 from Mark 

transferring 50 from Mark to Tami (a retry) 
insufficient balance for Mark to withdraw 50 
balance for Mark is 25 

balance for Tami is 200 


Validation x 
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给 Ref 的 值 是 数字 。 


; Note the use of the :validator directive when creating the Ref 
; to assign a validation function which is integer? in this case. 
(def my-ref (ref 0 :validator integer?)) 


(try 
(dosync 
(ref-set my-ref 1) ; works 


; The next line doesn't work, so the transaction is rolled bacl 
; and the previous change isn't committed. 
(ref-set my-ref "foo")) 
(catch IllegalStateException e 
; do nothing 


) ) 
(println "my-ref -" Qmy-ref) ; due to validation failure -> 0 
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Atoms 


Atoms 提供 了 一 种 比 使 用 Refs&STM 更 简单 的 更 新 当 个 值 的 方法 。 它 不 受 事 务 的 影 
响 

有 三 个 函数 可 以 修改 一 个 Atom 的 值 : reset! , compare-and-set! 和 
swap! 


reset! 函数 接受 两 个 参数 : 要 设 值 的 Atom 以 及 新 值 。 它 设置 新 的 值 ， 而 不 管 你 
日 的 值 是 什么 。 看 例子 : 


(def my-atom (atom 1)) 
(reset! my-atom 2) 
(println Qmy-atom) ; -> 2 


compare-and-set! 有 函数 接受 三 个 参数 : 要 被 修改 的 Atom, 上 次 读 取 时 候 的 值 ， 
新 的 值 。 这 个 函数 在 设置 新 值 之 前 前 会 去 读 Atom 现 在 的 值 。 如 果 与 上 次 读 的 时 候 的 
值 相等 ， 那 么 设置 新 值 并 返回 true, 否则 不 设置 新 值 ， 返 回 false。 看 例子 : 


(def my-atom (atom 1)) 


(defn update-atom [] 
(let [curr-val Qmy-atom] 


(println "update-atom: curr-val =" curr-val) ; -> 1 
(Thread/sleep 50) ; give reset! time to run 
(println 


(compare-and-set! my-atom curr-val (inc curr-val))))) ; -> fi 


(let [thread (Thread. #(update-atom) ) ] 
(.start thread) 
(Thread/sleep 25) ; give thread time to call update-atom 
(reset! my-atom 3) ; happens after update-atom binds curr-val 
(.join thread)) ; wait for thread to finish 


(println Qmy-atom) ; -> 3 
BIES 


为 什么 最 后 的 结果 是 3 呢 ? update-atom 被 放 在 一 个 单独 的 线程 里 面 ， 在 
p 所 以 它 获 取 了 atom 的 初始 值 1( 存 到 变量 curr-val 里 面 
KT), 然后 它 sleep 了 以 让 reset! 函数 有 执行 是 时 间 。 在 那 之 后 ，atom 的 值 就 变 
成 3 了 。 当 update-atom 有 函数 调用 compare-and-set! 来 给 这 个 值 加 一 的 时 
候 ， 它 发 现 atom 的 值 已 经 不 是 它 上 次 读 取 的 那个 值 了 (1), 所 以 更 新 失败 ，atom 的 
值 还 是 3。 


swap! 函数 接受 一 个 要 修改 的 Atom, 一 个 计算 Atom 新 值 的 函数 以 及 一 些 额 外 的 
参数 (如 果 需 要 的 话 )。 这 个 计算 Atom 新 的 值 的 函数 会 以 这 个 Atom 以 及 一 些 额外 的 参 
数 做 为 输入 。swap ! 函数 实际 上 是 对 compare-and-set! 函 数 的 一 个 封装 ， 但 是 有 一 





个 显著 的 不 同 。 它 首先 把 Atom 的 当前 值 存 入 一 个 变量 ， 然 后 调用 计算 新 值 的 函数 
来 计算 新 值 ， 然后 再 调用 compare-and-set! 函 数 来 赋值 。 如 果 赋 值 成 功 的 话 ， 那 就 
结束 了 。 如 果 赋 值 不 成 功 的 话 ， 那 么 它 会 重复 这 个 过 程 ， 一 直到 赋值 成 功 为 止 。 这 
就 是 它们 的 区 别 : 所 以 上 面 的 代码 可 以 用 swapl 改 写成 这 样 : 


(def my-atom (atom 1)) 


(defn update-atom [curr-val] 
(println "update-atom: curr-val =" curr-val) 
(Thread/sleep 50) ; give reset! time to run 
(inc curr-val)) 


(let [thread (Thread. Z(swap! my-atom update-atom))] 
(.start thread) 
(Thread/sleep 25) ; give swap! time to call update-atom 
(reset! my-atom 3) 
(.join thread)) ; wait for thread to finish 


(println Qmy-atom) ; -» 4 


为 什么 输出 变 成 4 了 呢 ? 因为 swap! 会 不 停 的 去 给 cuUrr-val 加 一 直到 成 功 为 止 。 


Agents 


Agents 是 用 把 一 些 事情 放 到 另外 一 个 线程 来 做 -- 一 般 来 说 不 需要 事务 控制 的 。 它 
们 对 于 修改 一 个 单个 对 象 的 值 (也 就 是 Agent 的 值 ) 来 说 很 方便 。 这 个 值 是 通过 在 另外 
的 一 个 thread 上 面 运行 一 个 “action" 来 修改 的 。 一 个 action 是 一 个 函数 ， 这 个 函数 接 
受 Agent 的 当前 值 以 及 一 些 其 它 参数 。 Only one action at a time will be run on a 
given Agent 在 任意 一 个 时 间 点 一 个 Agent 实 例 上 面 只 能 运行 一 个 action. 


agent 函数 可 以 建立 一 个 新 的 Agent. 比如 : 


(def my-agent (agent <em>initial-value</em>) ) 


send 函数 把 一 个 action 分 配给 一 个 Agent， 并 且 马 上 返回 而 不 做 任何 等 待 。 这 
个 action 会 在 另外 一 个 线程 (一 般 是 由 一 个 线程 池 提 供 的 ) 上 面 单独 运行 。 当 这 个 
action 运 行 结束 之 后 ， 返 回 值 会 被 设置 给 这 个 Agent。 send-off 有 函数 也 类 似 只 是 
线程 来 自 另外 一 个 线程 吃 。 


send 使 用 一 个 "国定 大 小 的 " 线程 吃 (java.util.concurrent.Executors 里 面 的 
newFixedThreadPool) ) > 线程 的 个 数 是 机 器 的 处 理 器 的 个 数 加 2。 如 果 所 有 的 线 
程 都 被 占用 ， 那 么 你 如 果 要 运行 新 的 action ， 那 你 就 要 等 了 。 send-off 使 用 的 
是 "cached thread pool" (java.util.concurrent.Executors 里 面 的 ? 
newCachedThreadPool) ) ， 这 个 线程 池 里 面 的 线程 的 个 数 是 按照 需要 来 分 配 的 。 


如 果 send 或 者 send-off 函数 是 在 一 个 事务 里 面 被 调用 的 。 那么 这 个 action 
直到 线程 提交 的 时 候 才 会 被 发 送 给 另外 一 个 线程 去 执行 。 这 在 某 种 程度 上 来 说 和 
commute Wakxt Ref 的 作用 是 类 似 的 。 


在 action 里 面 ， 相 关联 的 那个 agent 可 以 通过 symbol :  *agent* 得 到 。 


await 以 一 个 或 者 多 个 Agent 作 为 参数 ， 并 且 block 住 当前 的 线程 ， 直 到 当前 线程 
分 派 给 这 些 Agent 的 action 都 执行 完了 。 await-for Zt E X5, 但 是 它 接受 一 
个 超时 时 间作 为 它 的 第 一 个 参数 ， 如 果 在 超时 之 前 事情 都 做 完了 了， 那么 返回 一 个 
非 nil 的 值 ， 否 则 返回 一 个 非 nil 的 值 ， 而 且 当 前 线程 也 就 不 再 被 block 了 。 await 
fe await-for 有 函数 不 能 在 事务 里 面 调用 。 


如 果 一 个 action 执 行 的 时 候 抛 出 一 个 异常 了 ， 那 么 你 要 dereference 这 个 Agent 的 话 
也 会 抛 出 异常 的 。 在 action 里 面 抛 出 的 所 有 的 异常 可 以 通过 agent-errors 函数 
获取 。 clear-agent-errors 函数 可 以 清除 一 个 指定 Agent 上 面 的 所 有 异常 。 


shutdown-agents 哆 数 等 待 所 有 发 送 给 agents 的 action 都 执行 完毕 。 然 后 它 停止 
线程 池 里 面 所 有 的 线程 。 在 这 之 后 你 就 不 能 发 送 新 的 action 了 。 我 们 一 定 要 调用 

shutdown-agents 以 让 JVM 可 以 正常 退出 ， 因 为 Agent 使 用 的 这 些 线程 不 是 守护 
线程 ， 如 果 你 不 显 式 关闭 的 话 ，JVM 是 不 会 退出 的 。 


Watchers 


WARNING: 下 面 这 个 章节 要 做 一 些 更 新 ， 因 为 在 Clojure1.1 里 面 add-watcher 和 
remove-watcher 这 两 个 子 数 被 去 掉 了 。 两 个 不 大 一 样 的 函数 add-watch 和 
remove-watch 被 添加 进来 了 。 


Agents 可 以 用 作 其 它 几 种 引用 类 型 的 监视 器 。 当 一 个 被 监视 的 引用 的 值 发 生 了 改变 

之 后 ，Clojure 会 通过 给 Agent 发 送 一 个 action 的 形式 通知 它 。 通 知 的 ae 可 以 是 
send 或 者 send-off Po uc 5| FRA AY E 8 aes 

定 的 。 那 个 action 的 参数 是 那个 监 监视 器 Agent 以 及 发 生 改 变 的 引用 对 i. 

action $ 3& © 4& 9] zz Agent £^ # 4à. » 


就 像 我 们 前 面 已 经 说 过 的 那样 ， 范 数 式 编程 强调 那 种 “ 纯 函数 ”-- 不 会 改变 什么 全 局 

量 的 函数 。 但 p nc ， 但 是 Clojure 使 得 我 们 要 找 出 对 全 
局 状态 进行 了 改变 的 函数 非常 的 简单 。 一 个 方法 就 是 寻找 那些 能 对 状态 进行 改变 的 
宏和 方法 ， 比 如 alter 。 了 调用 这 些 宏 / 郊 数 的 地 方 就 找到 了 所 有 修改 全 局 
状态 的 地 方 了 。 另外 一 个 方法 就 是 用 Agent 来 监视 对 于 全 局 状态 的 更 改 。 一 个 监视 
者 可 以 通过 dump 出 来 stack trace 来 确定 到 底 是 谁 对 全 局 状态 做 了 修改 。 


下 面 的 例子 给 一 个 Var， 一 个 Ref， 一 个 Atom 注 册 了 一 个 Agent 监 视 者 。 Agent 里 面 维 
护 了 它 所 监视 的 每 个 引用 被 修改 的 次 数 (一 个 map)。 这 个 map 的 key 就 是 引用 对 象 ， 
而 值 则 是 被 修改 的 次 数 。 


E 


(def my-watcher (agent {})) 


(defn my-watcher-action [current-value reference] 
(let [change-count-map current-value 
old-count (change-count-map reference) 
new-count (if old-count (inc old-count) 1)] 
; Return an updated map of change counts 
; that will become the new value of the Agent. 
(assoc change-count-map reference new-count))) 


(def my-var "v1") 
(def my-ref (ref "ri")) 
(def my-atom (atom "a1")) 


(add-watcher (var my-var) :send-off my-watcher my-watcher-action) 
(add-watcher my-ref :send-off my-watcher my-watcher-action) 
(add-watcher my-atom :send-off my-watcher my-watcher-action) 


; Change the root binding of the Var in two ways. 
(def my-var "v2") 
(alter-var-root (var my-var) (fn [curr-val] "v3")) 


; Change the Ref in two ways. 
(dosync 
; The next line only changes the in-transaction value 
; So the watcher isn't notified. 
(ref-set my-ref "r2") 
; When the transaction commits, the watcher is 


; notified of one change this Ref ... the last one. 
(ref-set my-ref "r3")) 
(dosync 


(alter my-ref (fn [ ] "r4"))) ; And now one more. 


; Change the Atom in two ways. 
(reset! my-atom "a2") 
(compare-and-set! my-atom Qmy-atom "a3") 


; Wait for all the actions sent to the watcher Agent to complete. 
(await my-watcher) 


; Output the number of changes to 
; each reference object that was watched. 
(let [change-count-map @my-watcher ] 


(println "my-var changes =" (change-count-map (var my-var))) ; - 
(println "my-ref changes =" (change-count-map my-ref)) ; -> 2 
(println "my-atom changes =" (change-count-map my-atom))) ; -> 2 


(shutdown-agents) 








编译 


当 clojure 的 源 代码 文件 被 当 作 脚本 文件 执行 的 时 候 ， 它 们 是 在 运行 时 被 编译 成 java 
的 bytecode 的 。 同 时 我 们 也 可 以 提前 编译 (AOT ahead-of-time) 它 们 成 java 
bytecode。 这 会 缩短 clojure 程 序 的 启动 时 间 ， 并 且 产 生 的 .class 文 件 还 可 以 给 java 程 
序 使 用 。 我 们 推荐 按照 下 面 的 步骤 来 做 : 


. 为 你 要 编译 的 文件 选择 一 个 名 字 空 间 ， 比 如 : com.ociweb.talk 。 
. 在 父 目 录 里 面 创 建 两 个 目录 :" src "和 " classes "o 
.使 你 的 其 中 一 个 文件 的 文件 名 和 包 名 的 最 后 一 段 相同 ， 比 如 : talk.clj 。 
.把 你 的 源 文 件 放 在 " src. "目录 下 面 ， 并 且 创 建 和 名 字 空 间 一 样 的 目录 层 
级 ， 比 如 : src/com/ociweb/talk.clj ° 
5. 在 你 的 源 代 码 的 最 上 面 给 你 的 文件 指定 名 字 空 间 ， 并 且 包 含 :gen-class 标 记 : 
(ns com.ociweb.talk (:gen-class)) 
6. 在 你 的 主 源 文件 里 面 ， 使 用 load 函数 来 加 载 同一 个 目录 下 面 的 其 它 源 文 
Pe > bike > toR more.clj 在 目录 src/com/ociweb FH RK" talk 
"下 面 那 么 用 这 个 语句 来 加 载 (load "talk/more") . 
7. 在 其 它 的 源 文件 里 面 ,使 用 in-ns 函数 来 设置 他 们 的 名 字 空 间 . 比如 , 在 
more.clj 文 件 上 面 指定 名 字 空 间 : (in-ns 'com.ociweb.talk) ° 
8. d£" src "fe" classes "目录 添加 到 REPL 的 classpath 里 面 去 。 如 果 你 使 
用 了 一 个 脚本 来 运行 REPL, 那么 修改 那个 脚本 。 
9. 启动 一 个 REPL。 
10. 使 用 compile 函数 来 编译 一 个 给 定名 字 空 间 的 clojure 文 件 : 
(compile '_namespace_)。 比 如 : (compile 'com.ociweb.talk) 
这 些 步骤 会 为 每 个 函数 创建 一 个 单独 的 .class 文 件 。 他 们 会 被 写 到 " classes "x 
件 夹 下 对 应 的 子 文件 夹 下 面 去 。 
如 果 这 个 被 编译 的 名 字 空 间 有 一 个 叫做 - main 的 函数 ， 那 么 你 可 以 把 它 当 作 java 
的 主 类 的 运行 。 命 令 行 参 数 会 被 当 作 参数 传递 给 这 个 函数 。 上 比如， 如 果 
talk.clj 包含 一 个 叫 -main 的 函数 ， 你 可 以 用 下 面 的 命令 来 运行 
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java -classpath <em>path</em>/classes:<em>path</em>/clojure.jar cor 
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在 Java 里 面 调用 Clojure 


提前 编译 的 Clojure 函 数 如 果 是 静态 的 函数 的 话 ， 那 么 m 序 调用 。 可 
以 通过 把 函数 的 元 数据 项 : :static 设置 为 true 来 达到 这 个 目的 。 语 法 是 这 
样 的 : 


(ns <em>namespace</em> 
(:gen-class 
methods [#4{:static true) [<em>function-name</em> [«em»param-t^ 








让 我 们 看 一 个 例子 : 下 面 是 一 个 名 字 叫 做 Demo.cj 的 文件 ， 它 的 路 径 是 
src/com/ociweb/clj ° 


(ns com.ociweb.clj.Demo 
(:gen-class 
:methods [#4{:static true} [getMessage [String] String]])) 


# Note the hyphen at the beginning of the function name! 


(defn -getMessage [name] 
(str "Hello, " name "!")) 


下 面 是 一 个 叫做 Main.java 的 java 文 件 ， 它 和 src 以 及 classes 在 同一 个 
目录 。 
import com.ociweb.clj.Demo; // class created by compiling Clojure : 


public class Main { 


public static void main(String[] args) { 
String message - Demo.getMessage("Mark"); 
System.out.println(message); 





下 面 是 编译 并 且 运 行 它 的 步骤 : 


1. cd 到 包含 src 和 classes 的 目录 。 

2. 通过 " clj "命令 来 打开 一 个 REPL 。 

3. 运行 " (compile 'com.ociweb.clj.Demo) ". 

4. 退出 REPL (ctrl-d 或 者 ctrl-c). 

5. 运行 " javap -classpath classes com.ociweb.clj.Demo "来 查看 生成 的 
class 文 件 里 面 的 方法 。 

6. 运行 " javac -cp classes Main.java " 


7. 运行 "” java -cp .:classes: path /clojure.jar Main.java ". 注意 
Windows 下 面 的 路 径 分 隔 符 是 分 号 而 不 是 冒号 。 
8. 输出 应 该 是 " Hello, Mark! ". 


Cloiure 还 有 一 些 更 加 高 级 的 编译 特性 。 更 多 细节 可 以 参考 宏 
[gen-class](http://clojure.github.com/clojure/clojure.core-api.html: 
的 文档 以 及 http://clojure.org/compilation/ ° 


自动 化 测试 


Clojure 里 面 主 要 的 主要 自动 化 测试 框架 是 clojure core 里 面 自 带 的 。 下 面 的 代码 演示 
了 它 的 一 些 主要 特性 : 


(use 'clojure.test) 


; Tests can be written in separate functions. 
(deftest add-test 
; The "is" macro takes a predicate, arguments to it, 
; and an optional message. 
(is (= 4 (+ 2 2))) 
(is (= 2 (+ 2 0)) "adding zero doesn't change value")) 


(deftest reverse-test 
(is (= [3 2 1] (reverse [1 2 3])))) 


; Tests can verify that a specific exception is thrown. 
(deftest division-test 
(is (thrown? ArithmeticException (/ 3.0 0)))) 


; The with-test macro can be used to add tests 
; to the functions they test as metadata. 
(with-test 
(defn my-add [ni n2] (+ ni n2)) 
(is (= 4 (my-add 2 2))) 
(is (=2 (my-add 2 0)) "adding zero doesn't change value")) 


; The "are" macro takes a predicate template and 
; multiple sets of arguments to it, but no message. 
; Each set of arguments are substituted one at a time 
; into the predicate template and evaluated. 
(deftest multiplication 
(are [ni n2 result] 
(= (* n1 n2) result) ; a template 


1 
1 
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6)) 

; Run all the tests in the current namespace. 

; This includes tests that were added as function metadata using w: 


; Other namespaces can be specified as quoted arguments. 
(run-tests) 


Ej m us 


AT TR 2247 — Mestay IH TR Ju h RIA RIRA > bind— 4- Zt 2 special symbol: 
*stack-trace-depth* œ 





当 你 要 把 Clojure 代 码 编译 成 bytecode 以 部 署 到 生成 环境 的 时 候 ， 你 可 以 给 
*load-tests* Symbol bind 一 个 false 值 ， 以 避免 把 测试 代码 编译 进去 。 


虽然 和 自动 化 测试 不 是 同一 个 层面 的 东西 ， 还 是 值得 一 提 的 是 Clojure 提 供 一 个 宏 : 
assert ° 它 测试 一 个 表达 式 ， 如 果 这 个 表达 式 的 值 为 false 的 话 ， 他 们 它 会 抛 出 
异常 。 这 可 以 警告 我 们 这 种 情况 从 来 都 不 应 该 发 生 。 看 例子 : 


(assert (>= dow 7000)) 


自动 化 测试 的 另外 一 个 重要 的 特性 是 fixtures。fixture 其 Un f setup fe 
tearDown 方 法 。fixture 分 为 两 种 ， 一 种 是 在 每 个 测试 方法 的 开始 ， 结 束 的 时 候 执 
行 。 一 种 是 在 整个 测试 (好 几 个 测试 方法 ) 的 开始 和 结束 的 时 候 执 行 o 


照 下 面 的 样子 编写 fixture: 


(defn fixture-name [test-function] 
; Perform setup here. 
(test-function) 

; Perform teardown here. 


) 


3% Mixture à Zt 2-4 AT ED MIKA KR MIX o dX X EAM 
test-function 及 时 要 被 执行 的 测试 方法 。 


用 下 面 的 方法 去 注册 这 些 fixtures 去 包 衰 每 一 个 测试 方法 : 


(use-fixtures :each fixture-1 fixture-2 ...) 


执行 的 顺序 是 


1. fixture-1 setup 
2. fixture-2 setup 
3. ONE test function 
4. fixture-2 teardown 
5. fixture-1 teardown 


= 
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(use-fixtures nce fixture-1 fixture-2 ...) 


执行 顺序 是 这 样 的 : 


1. fixture-1 setup 
2. fixture-2 setup 
3. ALL test functions 
4. fixture-2 teardown 


5. fixture-1 teardown 


Clojure 本 身 的 测试 在 test FARE. 要 想 运 行 他 们 的 话 , cd 到 包含 src 和 
test 的 目录 下 面 去 ， 然 后 执行 :" ant test "° 


a it & 4° IDE 


Clojure plugins for many editors and IDEs are available. For emacs there is 
clojure-mode and swank-clojure, both at https://github.com/technomancy/swank- 
clojure . swank-clojure uses the Superior Lisp Interaction Mode for Emacs (Slime) 
described at http://common-lisp.net/project/slime/ . For Vim there is VimClojure 
http://kotka.de/projects/clojure/vimclojure.html . For NetBeans there is enclojure at 
http://enclojure.org/ . For IDEA there a "La Clojure" at 

http://plugins. intellij.net/plugin/?id=4050 . For Eclipse there is Counter Clockwise 
at 
http://dev.clojure.org/display/doc/Getting+Started+with+Eclipse+and+Counterclock 
wise . 


Clojure 入 门 教 程 


桌面 应 用 


Clojure 可 以 创建 基于 Swing 的 GUI 程序 。 下 面 是 一 个 简单 的 例子 ， 用 户 可 以 输入 他 
们 的 名 字 ， 然 后 点 击 “Greet : 按钮 ， 然 后 它 会 弹出 一 个 对 话 框 显 示 一 个 欢迎 信息 。 
可 以 关注 一 下 这 里 我 们 使 用 了 proxy 宏 来 创建 一 个 集成 某 个 指定 类 ( IFrame ) 
并 且 实 现 了 一 些 java 接 口 (这 里 只 有 ActionListener 一 个 接口 ) 的 对 象 。. 


OOO Message — 0 0— 
S, Hello, World! 
Name: [World —  — | 
Cox”) 
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(ns com.ociweb.swing 
(:import 
(java.awt BorderLayout ) 
(java.awt.event ActionListener ) 
(javax.swing JButton JFrame JLabel JOptionPane JPanel JTextFie- 


(defn message 
"gets the message to display based on the current text in text-f: 
1 
(str "Hello, " (.getText text-field) "!")) 


Set the initial text in name-field to "World" 
; and its visible width to 10. 
(let [name-field (JTextField. "World" 10) 
greet-button (JButton. "Greet") 
panel (JPanel.) 
frame (proxy [JFrame ActionListener] 
[] ; superclass constructor arguments 
(actionPerformed [e] ; nil below is the parent component 
(JOptionPane/showMessageDialog nil (message name-field)): 
(doto panel 
(.add (JLabel. "Name:")) 
(.add name-field)) 
(doto frame 
(.add panel BorderLayout/CENTER) 
(.add greet-button BorderLayout/SOUTH) 
(.pack) 
(.setDefaultCloseOperation JFrame/EXIT ON CLOSE) 
(.setVisible true)) 
; Register frame to listen for greet-button presses. 
(.addActionListener greet-button frame)) 


, 





Web Ff] 


有 很 多 Clojure 类 库 可 以 帮助 我 们 创建 Web 应 用 。 现 在 比较 流行 使 用 Chris Granger 5 
的 Noir 。 另 外 一 个 简单 的 ， 基 于 MVC 的 框架 ， 使 用 Christophe Grand 写 的 ? Enlive 
来 做 页 面 的 template, 是 Sean Corfield 写 的 Framework One 。 另 一 个 流行 的 选择 是 
James Reeves 写 的 Compojure， 你 可 以 在 这 里 下 载 : 
http://github.com/weavejester/compojure/tree/master 。 所 有 这 些 框架 都 是 基于 
Mark McGranahan 5 #) Ring (James Reeves F] ou 我 们 以 Compojure 
为 例子 来 稍微 介绍 一 下 web 应 用 开发 。 最 新 的 版 本 可 以 通过 git 来 获取 : 


git clone git://github.com/weavejester/compojure.git 


这 个 命令 会 在 当前 目录 创建 一 个 叫做 compojure 的 目录 . 另外 你 还 需要 从 
http://cloud.github.com/downloads/weavejester/compojure/deps.zip 下 载 所 有 依赖 
的 JAR 包 ， 把 deps.zip 下 载 之 后 解压 在 compojure 目录 里 面 的 deps FH 
录 里 面 : 


要 获取 compojure.jar ,在 compojure 里 面 运 行 ant 命令 。 


要 获取 Compojure 的 更 新 , 切换 到 compojure 目录 下 面 执行 下 面 的 命令 


git pull 
ant clean deps jar 


所 有 的 deps 目录 里 面 的 jar 包 都 必须 包含 在 classpath 里 面 。 一 个 方法 是 修改 我 们 
的 cl] 脚本 ， 然 后 用 这 个 脚本 来 运行 Web 应 用 . 把 " -cp $CP "添加 到 java 
命令 后 面 去 执行 clojure.main 添 加 下 面 这 些 行 到 脚本 里 面 去 ， 以 把 那些 jar 包 包含 在 
CP 里 面 。 


# Set CP to a path list that contains clojure.jar 
# and possibly some Clojure contrib JAR files. 
COMPOJURE_DIR=<em>path-to-compojure-dir</em> 
COMPOJURE_JAR=$COMPOJURE_DIR/compojure. jar 
CP=$CP: $COMPOJURE_JAR 
for file in $COMPOJURE DIR/deps/*.jar 
do 

CP=$CP: $file 
done 


下 面 是 他 一 个 简单 的 Compojure web 应 用 : 


Name: World 


(sce) Hello, World! 


(ns com.ociweb.hello 
(:use compojure)) 


(def host "localhost") 

(def port 8080) 

(def in-path "/hello") 

(def out-path "/hello-out") 


(defn html-doc 
"generates well-formed HTML for a given title and body content" 
[title & body] 
(html 
(doctype :html4) 
[:html 
[:head [:title title]] 
[:body body]])) 


; Creates HTML for input form. 
(def hello-in 
(html-doc "Hello In" 
(form-to [:post out-path] 

"Name: " 
(text-field {:size 10) :name "World") 
[:br] 
(reset-button "Reset") 
(submit-button "Greet")))) 


; Creates HTML for result message. 
(defn hello-out [name] 
(html-doc "Hello Out" 
[:h1 "Hello, " name "!"])) 


(defroutes hello-service 
; The following three lines map HTTP methods 
; and URL patterns to response HTML. 
(GET in-path hello-in) 
(POST out-path (hello-out (params :name))) 
(ANY "*" (page-not-found))) ; displays ./public/404.html by defat 


(println (str "browse http://" host ":" port in-path)) 
; -> browse http://localhost:8080/hello 
(run-server {:port port) "/*" (servl 


BENE 





数据 库 


Clojure Contrib 里 面 的 jdbc 库 简化 了 clojure 对 于 关系 型 数据 库 的 访问 . 它 通 过 commit 
和 rollback 来 支持 事务 , 支持 prepared statements, 支持 创建 /删除 表 , 插入 /更 新 /删除 
行 , 以 及 查询 。 下 面 的 例子 链接 到 一 个 Postgres 数据 库 并 且 执 行 了 一 个 查询 。 代码 
的 注释 里 面 还 提 到 了 怎么 使 用 jdbc 来 连接 mysql 。 


(use 'clojure.java.jdbc) 


(let [db-host "localhost" 
db-port 5432 ; 3306 
db-name "HR"] 


; The classname below must be in the classpath. 
(def db {:classname "org.postgresql.Driver" ; com.mysql.jdbc.Dri 
:subprotocol "postgresql" ; "mysql" 
:subname (str "//" db-host ":" db-port "/" db-name) 
; Any additional map entries are passed to the driver 
; as driver-specific properties. 
:USer "mvolkmann" 
:password "cljfan"}) 


(with-connection db ; closes connection when finished 
(with-query-results rs ["select * from Employee"] ; closes rest 
; rs will be a non-lazy sequence of maps, 
; one for each record in the result set. 
; The keys in each map are the column names retrieved and 
; their values are the column values for that result set row 
(doseq [row rs] (println (row :1lastname)))))) 


E ES 


clj-record 提供 了 一 个 类 似 Ruby on Rails 的 ActiveRecord 的 数据 库 访 问 包 . 更 
多 关于 它 的 信息 看 这 里 : http://github.com/duelinmarkers/clj-record/tree/master . 





` 
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很 多 的 类 库 提供 了 Clojure Proper 所 没有 提供 的 一 些 功能 ， 我 们 在 前 面 的 例子 里 面 
已 经 讨论 过 一 些 ， 下 面 列举 一 下 没有 提 到 的 一 些 。 并 且 这 里 有 已 知 的 类 库 的 一 个 列 
表 http://clojure.org/libraries ° 


clojure.tools.cli - 操作 命令 行 参数 并 且 输 出 帮助 信息 

clojure.data.xml - 以 lazy 的 方式 解析 XML 

clojure.algo.monads - 有 关 monads) 的 一 些 方法 

clojure.java.shell - 提供 一 些 函 数 和 宏 来 创建 子 进 程 并 且 控 制 它们 的 输入 /输出 
clojure.stacktrace - 提供 函数 来 简化 stacktrace 的 输出 --- 只 输出 跟 Clojure 有 关 
的 东西 

clojure.string - 提供 操作 字符 串 以 及 正则 表达 式 的 一 些 方法 


e clojure.tools.trace - 提供 跟踪 所 有 对 某 个 方法 的 调用 的 输出 以 及 返回 值 的 跟踪 


下 面 是 个 简要 的 例子 要 使 用 clojure.java.shell 获取 当前 的 工作 目录 。 


(use 'clojure.java.shell) 
(def directory (sh "pwd")) 


a. 2 
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篇 文章 涵盖 了 很 多 的 背景 知识 。 如果 你 想 学 更 多 有 关 Clojure 的 东西 ，Stuart 
ET 号 了 本 很 不 错 的 书 :" Programming Clojure " ° 
这 篇 文章 主要 关注 的 是 Clojure 1.0 的 特性 ， 并且 会 被 社区 成 员 不 时 的 更 新 的 。 如 果 
要 了 解 Clojure 1.1 以 及 更 新 版 本 的 新 特性 ， 可 以 看 看 这 里 
http://www.fogus.me/static/preso/clj1.1+/ 
这 里 有 一 些 关键 的 问题 ， 你 可 以 问 问 你 自己 来 看 看 你 到 底 要 不 要 学 习 Clojure : 


e 你 是 想 要 找 一 种 方式 使 得 并 发 编程 更 简单 么 ? 

。 你 确定 能 够 接受 一 种 和 面向 对 象 完全 不 同 的 编程 方式 : 函数 式 编程 么 ? 

e 能 运行 在 JVM 上 面 ， 并 且 可 以 调用 java 的 类 库 ， 利 用 java 的 可 移植 性 对 你 写 的 
BEERA? 

e 和 静态 类 型 比 起 来 你 更 喜欢 动态 类 型 么 ? 

e 你 觉得 Lisp 的 简洁 的 ， 一 致 的 语法 动人 么 ? 


如 果 对 于 上 面 某 些 问 题 的 回答 是 肯定 的 ， 那 么 该 考虑 尝试 下 Clojure ° 


Clojure 入 门 教程 


» 
dk 


我 的 Clojure 网 站 - http://www.ociweb.com/mark/clojure/ 

我 的 STM 网 站 - http://www.ociweb.com/mark/stm/ 

Clojure 官 网 - http://clojure.org/ 

Clojure API - http://clojure.org/api/ 

clj-doc - http://clj-doc.s3.amazonaws.com/tmp/doc-1116/ 

Clojure X Él - http://github.com/Chouser/clojure-classes/tree/master/graph-w- 
legend.png 

clojure-contrib 3. 4$ - http://code.google.com/p/clojure- 
contrib/wiki/OverviewOfContrib/ 

Wikibooks : Clojure Programming - 

http://en.wikibooks.org/wiki/Clojure Programming 

Wikibooks : Learning Clojure - http://en.wikibooks.org/wiki/Learning Clojure 
Wikibooks : Clojure API Examples - 

http://en.wikibooks.org/wiki/Clojure Programming/Examples/AP| Examples 
Project Euler Clojure code - http://clojure-euler.wikispaces.com/ 

Clojure Snake Game - 
http://www.ociweb.com/mark/programming/ClojureSnake.html 
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